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Nei prossimi volumi 
nuovi programmi per altri 
personal e homo computer 
attualmente presenti 
sut mercato 


20 PROGRAMMI PER COMMODORE 64 


20 programmi assolutamente nuovi ed inediti per disegnare, 
calcolare, scrivere, giocare, catalogare, ricordare 
e studiare col computer... ma soprattutto per imparare 
come lunziona e come si programma il tuo Commodore 64. 




20 programmi didattici che offrono, assieme ai 
divertimento, una esauriente ed appassio- 
nante guida alla programmazione in BASIC. 

Non più la cieca e passiva digitazione di 
programmi trovati qua e là sulle riviste, senza 
riuscire a capire la logica e il linguaggio della 
macchina. Per la prima volta, attraverso 
l’esame dettagliato della costruzione del 
programma (analisi del problema, organizzazione 
dei diagrammi di flusso, codifica in linguaggio 
BASIC), e la presentazione dei listati completi 
chi possiede il Commodore 64 può acquisire 
finalmente, senza fatica e nel modo giusto, 


la capacità di usarlo per elaborare con 
entusiasmante disinvoltura altri programmi 
utili e divertenti, permettere alta prova la 
propria creatività e fantasia. 

Perchè una macchina è utile solo se ci "Serve» 
e se impariamo ad usarla nei modo giusto. 


1 20 programmi descritti ed illustrati net volume 
sono disponìbili su cassetta e potranno 
essere richiesti versando l'importo di 
L. 12.600 su c.c.p. n. 135004 intestato a: , 

Armando Curdo Editore - Servizio Clienti, ' 
specificando la causale del versamento. 
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Per una serie di circostanze sfavorevoli 
gli articoli di Danilo Toma pubblicati sui 
n, 16 (pag. 18 — 22 i e 17 (pag. 69) risulta- 
no in parte imprecisi. 

□ Nella colonna centrale di pag. 18 fece 
n. 16) vi è un riferimento alle linee 10(10 — 
1800 che dovrebbero contenere nomi e 
indirizzi dei comandi grafici (pubblicati 
nel n. 14) mentre tali linee non compaiono 
nel listato pubblicato. 

La conoscenza di tali indirizzi è impor- 
tante soprattutto dopo la pubblicazione 
dell’articolo riguardante i comandi per 
registrare la pagina grafica (C.C.C. n. 
17), 

1000 PLOT =50701 
1100 ORA W =50720 
1200 CI RC LE =50745 
1300 ARC =50754 
1400 CLEAR =49763 
I500GRAF=50858 
1600 TEXT =50890 
1700 MG RAF =50922 
1800 COLOR =50986 

□ Nel paragrafo “ELIMINAZIONE 
DELLA FRECCETTA ’ (pag. 19 N.16) 
viene fatto riferimento a numeri di linea 
delle “routines grafiche II”. Purtroppo 
le lìnee citate non corrispondono a quelle 
del listato pubblicato nel numero 14. 

Nella frase “...cambiate il primo DA- 
TA della linea 24250...”, tale numero di 
linea va sostituito con 2250. Tre righe più 
avanti, al posto di 24300, va messo 2260. 

Infine, due righe dopo, il numero giu- 
sto è 225 invece di 17. 

□ Il paragrafo “UNA APPLICAZIO- 


NE” non doveva comparire nel Parti colo 
in quanto (vedi n, 17 di C.C.C.) era stato 
“scorporato” e sviluppato autonoma- 
mente, sfociando nel Partitolo sulla regi- 
strazione della pagina grafica, 

^ Nel paragrafo 4 ‘UN ESEMPIO” si fa 
riferimento a due figure mentre bisogna- 
va parlare di due listati. 

lu realtà quando trovate “figura I” 
dovete intendere “listato lungo” mentre 
“figura 2“ equivale a “listato breve”. 

Quanto Ti etti i dovrebbe aver chiarito 
ogni dubbio. Una preghiera: non scrìvete 
a Danilo Toma per avere informazioni, 
consigli o altro perchè non ha il tempo per 
rispondere se non attraverso l'apposito 
tagliando che trovate in fondo alla rivista. 



Eccesso d’ automatismo 

n Quando digito SA VE, oppure LO AD, 
e premo il tasto Return, non appare il 
messaggio PRESS PLAY QN TAPE ma il 
quadro scompare subito come se il tasto 
fosse già premuto. I programmi vengono 
caricati, salvati e verificati normalmente. 
Perchè questo strano comportamento? 
(Antonio Penane - Taranto) 

* 13 registratore possiede, al suo interno, 
un interruttore che viene chiuso quando 
si preme uno dei tasti play, record, re- 
wind eccetera. Il computer, nei casi di 
registrazione o lettura, attende che tale 
interruttore sia chiuso per iniziare le ope- 
razioni col nastro. 


E’ quindi molto probabile che tale in- 
terruttore sia chiuso permanentemente 
per un difetto meccanico oppure per un 
cortocircuito responsabile dell'invio del 
falso messaggio “tasto premuto!”. 

E’ anche probabile che il connettore 
posto sul resto del computer sia in corto 
circuito. Per sincerartene, prova ad uti- 
lizzare il registratore di un tuo amico. Se 
l’incon veniente scompare vuol dire che il 
registratore è in corto. In caso contrario 
il difetto risiede nel computer. Come, 
però, giustamente fai notare, rineonve- 
niente è minimo e non pregiudica il cor- 
retto funzionamento del calcolatore. 



□ In che cosa consiste il checksum nei 
listati? (Massimo Davi - O stiglia) 

• Quando in un programma pubblicato 
su di un libro si fa ricorso ad istruzioni del 
tipo RE AD... DATA è molto facile in- 
correre in errori di trascrizione da parte 
del lettore. Nei casi, ad esempio, di pro- 
grammi in Linguaggio Macchina vi sono 
decine di lavori numerici DATA che, 
letti uno ad uno, vengono allocati in me- 
moria mediante istruzioni POKE. Nei 
Linguaggio Macchina, come forse sa- 
prai, è sufficiente sbagliare a digitare un 
solo valore per “inchiodare” il compu- 
ter. Ciò significa che è necessario spe- 
gnerlo e riaccenderlo perdendo, di con- 
seguenza, tutto il contenuto della 
memoria. ■ 

Per evitare tale inconveniente, gli au- 
tori di programmi pubblicati sulle riviste 

(segue a pag. 70) 
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Pascalina e 
Aritmometro 


Sotto, eterno dotta Pascala, te macchina inventata 
<ia Sterne Pasca 1 (nel riquadra) in grado d> eseguirà 
addizioni e sotrra&onL nonché i> reperto automatico Fi- 
losofo « tensore. Pasca' ■ montò fa macchina a soh 19 
anni per aiutare ii padre, usa tiara dotte mr.se a fktuen 
A fiitiftra, ribàtto di un stiro grande teosofo, il tedesco 
Gottfried Wilhelm Le/bnum A fui si tfevu l'mhACionc 
dette possibilità d'uso dot tesiamo binane natta macchi- 
ne da catcolQ- 



j/V, 3 T inizio fu il numero. Era il 1642, 
Blaise Pascal, francese diciannovenne, fi- 
losofo* scrittore e matematico pensò una 
macchina per fare operazioni aritmeti- 
che. Una serie di ruote collegate da ingra- 
naggi rappresentavano le decine, le centi- 
naia* le migliaia. Su ogni circonferenza 
erano poi calcolate ie cifre, dallo 0 al 9. 
Azionando una ruota* avanzava di un'u- 
nità anche la ruota alla sua sinistra. 

Si chiamava Pascalina, e per l'umanità 
intera rappresentava un buon primo pas- 
so sulla strada del l'elaborazione dei dati. 
Certo» i calcoli andavano ancora imposta* 
ti manualmente, Ma il mutamento era 
concettuale, faceva parte del mondo delle 
idee* Per la prima volta era dimostrato 
che il calcolo poteva essere automatizza- 
to: una vera rivoluzione. E* fuori dal 
inondo delle idee per entrare a far parte 
della storia del inondo delle cose, per la 
prima volta una macchina eseguiva auto- 
maticamente il riporto* secondo un mec- 
canismo che sarebbe rimasto immutato 
per più di ire secoli. Idee forti* tecnologie 
primitive. 

Bisognerà aspettare la rivoluzione (e, 
più ancora, la meccanizzazione del nostro 
secolo) perchè le istituzioni dei primi ma- 
tematici potessero raggiungere tutti. Al- 
lora* si trattava più che altro di passatem- 
pi di intellettuali geniali* 

Eli 4) curiosamente, filosofi. Leibniz, le 
monadi,,, a scuola viene studiato sui libri 
di filosofia. Ma anche lui entra a pieno 
inerito nella storia, che è poi quella che 
porta ai computer che usiamo. Con un 
sistema dì pignoni dentati» net 1671 fu 
proprio Gottfried Wilhelm Leibniz a per- 
fezionare la macchina di Pascal e ad ag- 
giungervi moltiplicazioni e divisioni (sot- 
to forma di addizioni e sottrazioni 
ripetute)* 

Più pratico ancora (ma il salto è di 200 
anni) era Pantometro* un congegno in- 
ventato dal francese Thomas de Colmar 
(fu anche il primo grande successo di ven- 
dite per una macchina calcolatrice: alcu- 
ne migliaia di esemplari venduti dal 1820 
al 1890), 


E poco tempo dopo* nel 1832* arriva la 
prima macchina analìtica* A progettarla 
(non venne mai costruita) fu Charles 
Babbage* utilizzando la tecnica di riporto 
e uno strano aggeggio inventato 30 anni 
prima, la scheda perforata. Nasce con lei 
lì calcolatore* n per Io meno la sua conce- 
zione generale. E anche noi, con le imma- 


gini di questo fascicolo cì fermiamo qui* 
alle soglie del nostro secolo, alla prima 
applicazione dì massa di elaboratore è 
scheda perforata nel censimento ameri- 
cano del 1890* 50 anni dopo arriverò it 
primo calcolatore elettronico vero e pro- 
prio (nel 1943, LENI AC progettato «ti- 
rimi versila delta Pennsylvania), 
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Vanta una tecnologia senza 
confronti nella sua categoria. 

Infatti tutte le proprietà 
magnetiche del suo nastro 
sono esaltate al massimo 
grazie alla nuova particella 
magnetica “Ferricrystal” 
che, a differenza di quelle 

tradizionali, è 

assolutamente non porosa. La UDÌ, 
quindi, offre un livello d'uscita 
migliorato su tutta la gamma di 
frequenze, specialmente nelle 
medie e basse; una più ampia 
gamma dinamica, ed ottime 
caratteristiche di lownoise. 
Adotta la meccanica P.A. 
(PHASE ACCURACY) per 
garantire la massima 
stabilità di 1 svolgimento del 
nastro e per contenere la 


differenza di fase tra i 
canali stereo entro i 10°. 
Può essere usata 
su qualsiasi tipo 
di registratore. 


UDII 


È la soluzione ideale 
per chi vuole una cassetta di 
categoria superiore ad un costo contenuto. 

Utilizza un nastro di posizione “Chromo” (Cr0 2 ) 
prodotto con la stessa tecnologia dei nastri XL e XL-S Maxell. 
Infatti il nastro della UDII è composto dalle collaudate particelle magnetiche 
Fine Epitaxial", ulteriormente perfezionate. Di conseguenza è aumentata tutta la gamma 
dinamica de! nastro, il livello d’uscita alle medie ed alte frequenze, mentre il livello 
di rumore di bias ed il rumore di modulazione sono ridotti praticamente 
a zero. 

li meccanismo di scorrimento P.A. e la perfezione dei gusci deila cassetta 
assicurano un regolare svolgimento de! nastro, mantenendolo sempre per- 
pendicolare alla testina del registratore (differenza di fase entro i 10°). 


maxell 


E TUTTA UN 1 ALTRA MUSICA. 






GIOCHI 

COMMODORE 64 

Game 

P AVLOV 


N ella storia della scienza lo studio del 
comportamento degli animali è sempre 
stato di fondamentale importanza. Gli 
esperimenti in questo campo, sono infatti 
moltissimi, e vanno dal campo della medi* 
cina allo studio delle facoltà mentali. Uno 
di questi esperimenti il cui precursore è il 
famoso PÀVLOV, consisteva nel cercare 
di capire come funzionano i riflessi condi- 
zionati, L 1 .mimale analizzato in uno degli 
esperimenti era un grazioso topolino im- 
messo, per l’occasione, in una speciale 
gabbia. Questa era divisa in due scom- 
partimenti comunicanti, ed lì topolino 
poteva decidere liberatamente se stare da 
una parte, dall’altra.. .o riposarsi. 

Lo sperimentatore, pero, non lo lascia- 
va mai tranquillo: non appena II topolino 
si fermava, egli accendeva una lampadina 
per breve tempo, e, dopo un paio di se- 
condi, una scarica elettrica fastidiosa 
(leggera, per fortuna del topolino), veni- 
va diffusa sulla griglia metallica die for- 
mava il pavimento della gabbietta. A que- 
sto punto U topolino iniziava una corsa 
disperata e, con sita grande meraviglia, 
una volta arrivato nell’altro scomparti- 
mento non sentiva più quella noiosa scos- 
sa nelle zampe. 

T J o sperimentatore passò alla seconda 
fase dell’esperimento, consistente nel- 
raccendere lampadina e di mandare nuo- 
vamente una scarica nello scompartirne!)- 


Trasformarsi in un 
topo. Immedesimarsi 
in un animale 
da laboratorio 
per mettere alla prova 
il proprio istinto . 



Av&te 150 secondi per nv$cir$ fi capite la fogtca di 
questo gioco- 


10 in cui era rifugiato il topolino. Dopo 
diverse prove il topolino riuscì a capire 
che se andava nell’altro scompartimento 
della gabbia appena vedeva accendersi la 
luce, poteva evitare la scossa, e cosi fece 
ogni volta che vedeva la luce accendersi. 
In seguito la luce fu accesa senza rinvio 
della scarica elettrica. Il risultato fu che il 
topolino continuava ugualmente a rifu- 
giarvi dall’altra parte della gabbia. 

L’azione del topolino, pur se volonta- 
ria era diventata un riflesso condizionato 
dalla lampada. Allo stesso modo se pro- 
viamo ad emettere un fischio ogni volta 
che diamo da mangiare ad un cane, dopo 
un po’ di volte, limitandoci a fischiare, il 
cane si precipita felice e con l’acquolina in 
bocca. Agendo, cioè, esattamente contese 
dovesse mangiare. 

11 programma 

Lo scopo del programma che pubblichia- 
mo è quello di proseguire io studio dei 
riflessi condizionati utilizzando come ca- 
via l’ideatore degii esperimenti prima de- 
scritti: ] f uomo. E’ una sfida. Obiettivo: 
vedere se anche noi riusciamo a capire la 
strategia migliore per cavarsela in condi- 
zioni sfavorevoli* 

1 1 topolino è riuscito a capire che cosa 
doveva fare per non sentire la scossa: riu- 
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Pavlov e Master Mind 


L’Idea del programma pubblicato 
in queste pagine deriva dallo studio 
attento di un famoso programma, il 
Master Mind, che chiunque ha sicura- 
mente digitato in una delle sue innu- 
merevoli versioni, In un precedente 
editoriale avevo pregato ì lettori- 
autori di non inviare più versioni de] 
gioco, pur se elaborate. 

Esaminando, comunque, l'elevato 
numero di listati pervenuti in redazio- 

a 

ne abbiamo deciso dì intervenire sug- 
gerendo ciò che noi intendiamo per 
“sofisticazioni** di un listato. 

L’omino che appare net listato dì 
Pavlov deve percorrere il labirinto 
Lt toccando" in successione due dei 
dieci simboli che appaiono lungo 11 
percorso. À seconda del Pesilo del con- 
tatto, il bordo del video cambia, o me- 
no, del colore. Contemporaneamente 


il punteggio viene modificato, come pure 
il tempo a disposizione. 

Con Pavlov, insonuna, intendiamo 
proporre solo un’idea che, ce lo auguria- 
mo, possa dare inizio al Master Mind del- 
la seconda generazione. Ad un gioco, 
cioè, che In base al comportamento del 
giocatore fornisca ima risposta (meglio 
se... sibillina) da tenere in grande consi- 
derazione per il proseguimento del gioco 
stesso. 

Per ciò che invece riguarda lo specifico 
gioco proposto ne avevamo, in un primo 
tempo, dato la descrizione completa. In 
seguito, però, è stata presa la decisione di 
non pubblicarte- 
li perchè dì tale iniziativa è dovuto al 
fatto che, nella realtà, un topolino in una 
gabbietta non sa minimamente ciò che sta 
per capitargli ed anzi, credetemi, ne fa- 
rebbe volentieri a meno. 


se tremo anche noi in questo? Visto che 
l'uomo cosi si dice è piu intelligente degli 
animali, i problemi da superare non do- 
vrebbero essere poi insormontabili. Uni- 
ca differenza (e grosso ostacolo}: bisogna 
ragionare! 

Il gioco 

Immaginate di essere rinchiusi in un 
labirinto sotterraneo controllato, guarda 
caso, da un computer. Con il passare del 
tempo, sempre visualizzando sulla parte 
destra del video, il computer toglie dal 
Labirinto una certa quantità di ossigeno. 
L’ossigeno tenderà cioè ad esaurirsi fino a 
determinare la conclusione del gioco. 

Avete però la possibilità di salvarvi, o 
quanto meno di sopravvivere più a lungo 
usando una certa strategia. Lungo il labi- 
rinto, infatti, vi sono dei punti che, se 
collegati fra loro in modo esatto, permet- 
tono di azzerare il timer del computer 
centrale, con la seguente fornitura d'al- 
tro ossigeno aumentando, cosi, il 
punteggio. 

Se però collegato ira loro punti non 
previsti, ecco che il tempo limite cambia 
(può essere in meglio o in peggio, non si sa 


pero a priori}. In ogni caso ancora a di- 
sposizione ancora del tempo (e quindi os- 
sìgeno) per cercare altre combinazioni. 
Potete usare una combinazione già sco- 
perta, ma... Di più non posso dirvi, altri- 
menti il nostro esperimento non avrebbe 


motivo di esìstere. 

Cercate la strategia che permetta dì 
realizzare il miglior punteggio e buona 
fortuna. 

Giu* anni Belili 


530 

DEF 

FMDvA) = 

PEEK <1028 +FNACA 


+ 40 i 

FOKE V,0 ! NEX7 


>> 



650 

FOKE 

£040,13 : POKE V+3S,£ 

540 

DEF 

FNE ( A > - 

PEEK < 1 064+FNA t A 


: POKE V+21,1 


) > 



660 

POKE 

V,X S POKE V + 1,Y 

550 

DEF 

FNF<A> * 

PEEK< 1066+FNACA 

870 

POKE 

V+£3 ,0 ! POKE V+38,7 


>) 



630 

POKE 

V +£9,0 ! OM = 13 

5S0 

DEF 

FNG<A> = 

PEEK ( 1 104+FNA CA 

890 

POKE 

V+16,0 : POKE V+37,4 


>> 



700 

POKE 

V+£8 , 1 

570 

DEF 

FNH < A ) = 

PEEK ( 1 105+FNACA 

710 

REM 



>> 



720 

REM 

MEMORIZZAZIONE DATI SPRI 

530 

DEF 

FNI < A > * 

PEEK C 1 106+FNÀ C A 


TE 



) ) 



730 

REM 


590 

DEF 

FNL<A> = 

PEEK ( 1065+FNA ( A 

140 

REM 

COMMODORE G4 


) ) 



170 

REM 

"RIFLESSI CONDIZIONA 

S00 

DEF 

FNM<A > = 

INI <RNDC 1 >*10>+ 


TI 11 



1 



£20 

REM 


610 

REM 



230 

REM 

DI GIOVANNI BELLU 

820 

REM 




i 


630 

X = 

32 s Y = 

58 s XI = X : Yl 

330 

REM 

******************** 


= Y 




*** 

¥ 

640 

V = 

53248 » FOR K = V TO V 

340 

REM 

* JOYSTICK IN PORTA 
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1 * 

370 REM * ***** *###*# #*### 

*** 

380 REM 

396 PR1NT * CCLEARI [GIALLO] 11 : REM 
CLR/HDME E GIALLO 
400 REM SFONDO NERO 
410 POKE 53880,0 
480 POKE 53881,0 
430 A = 1088 

446 DIM A< 10) : OIM B$< 10) 

450 DIM C C 1 0 > : DIM D <10) 

455 DIM 3 < 10,3) 

460 REM 

470 REM DEFINIZIONE FUNZIONI 
480 REM PER LA GESTIONE DEGLI SP 
RITE 
490 REM 

500 DEF FNA < A > = <X~84 )/8+ < <T-50 
>/B > *40 

510 DEF FNB < A > = PEEK ( 1084 +FNA ( A 

>> 

5E0 DEF FNC<A> = PEEK C 1085+FNA ( A 

> > 


740 

FOR 

K = 0 TO 

68 


750 

READ 

T 

A i POKE 

838 +K, A 

: NEX 

760 

FOR 

K = © TO 

68 


770 

READ 

T 

A : POKE 

896+K , A 

: hEX 

970 

A = 

1084 



980 

REM 




990 

REM 

INIT, SUONO 



1000 REM 

1010 FOR K = 54896 TO 54330 : P 
OKE K/0 S NEHT 

1080 POKE 54878,855 : POKE 54876 
,17 s POKE 54836,15 ì W = 54 
873 
1030 REM 

1040 REM DATI PER RIFLESSI COfdlZ 
IQNATI 
1050 REM 

1060 A < 1 ) =8 1 : A <8 >=87 ! A (3 >=48 J 
A ( 4 ) =83 

1070 A (5 ) =88 : A<6>=90 : A(7>=65 t 
A <8 >-36 

1080 A <9 >=35 : ACt0>=43 
108,1 GOSUB 10000 

1090 B$<1> = "000 185 ' : B$C8) - "0 



00180" 

1100 6 $ < 3 > = Jl 000 1 1 0 13 : B$<4) = p @ 
00 100 N 

1110 S$<5> = 11 000050 * 1 B$<6> = ”0 
00040 * 

1180 FOR K = 0 TO 10 s C<K> = 
K + 8 ; NEXT 

1130 D ( 1 ) = 08 : BC8) = 09 ; DC3) 

= 10 

1140 DC4) = 11 : D (5 ) = 18 ! D<6> 

= 14 

1150 D < 7 > = 16 s D < 8 ) = 17 5 DC9> 

= 19 

1160 □ ( 1 0 > = 81 
1170 REM 

1180 REM RANDOM COLORI E SUONO 
1190 REM 

1800 FOR K = 1 TO 30 
1810 X = FKM(A> : Y = FNM< A > 

1880 X 1 = COC) 

1830 C CX ) = C < Y> s C< Y) = XI 
1840 K * FNMCA): Y = FNM<A) 

1850 XI = D<X> 

1860 D <X ) = D C Y > i 0<Y> = XI 
1870 NEXT 

1880 R$ = " (HOME ] * s REM CLR-HOhÉ 
1830 FOR K = 1 TO 5 ! R$ - R$ + 
"[DONNI” i l\EXT 

1300 FOR K = 1 TO 38 : R$ = R$ 

+ "CRI GHT 3 * ! NEXT 


Le immagini di questo fascicolo 


C fi a des Babai gè è cons/dereto 
Ù padre tisi computer par una 
macchina mai reatiziata. V pro- 
getto dotta macchina *na*Wctf 
(1832( contemva perù urta 
schema di si adorazione dei dati 
identico e quatto dei modèrni 
computar. 




GIOCHI 



1310 

RI* = 

R$ + 

" C £ DOm ILEI ANCO ] 11 


Ù_ 

■ # 


+ 1r IA2ZUR ) * 

1320 

REé = 

R J$+" 

13 DONI il CVERDEE1 t£ 


RIGHT] " 


1330 

R3f = 

n 

Rl$ + 

11 t £ DONNI I VER0E2 1 

1340 

R4$ = 

R3$ + 

M 1 3 DONNI l VERDE 3 11 

1350 

R5* ^ 

R4± + 

"CDOmitE RIGHI!" 

1380 

TI$ = 

H 

"000000" i T* = ”000000 

1370 

REM 



1330 

REM 

c* 

INI Z IO 

ROUTINE PRINCIPAL 

1330 

L 

REM 



1400 

GOSUB 

1770 

: FL = 0 ! RI = 0 

1410 

X = 32 l Y 

= S3 : XI ! Y1 


* Y 

1415 LV = -1 : GOSUB £060 

14£0 P=PEEK (5632 1 > i POKE £040,011 

1430 IF P=£54 THEN 1510 

1440 IF P=25 1 THEN 1570 

1450 IF F =247 THEN 1636 

1460 IF P =£53 THEN 1690 

1470 REM I FFL =0 THENGOSUB20S0 

1480 IF TI*>T* THEN £130 

1490 PR INTRISTÌ* 

1500 GOTO 1 4£0 

1510 REM IN ALTO 

1511 IF 0M= 13 THEN OM- 14: GOTO 15£0 
1513 0M= 13 

15£0 E=FNC<A) :POKE LI,FNM< A ) * 10 ! POK 
E 14,0 

1530 GCJSUB £0000 

1540 IF E >99 OR E <35 THEN 1430 

1550 Y=Y~S 


1560 POKE V,X!PQKE V+1,Y:G0TQ 14£0 

1570 REM A SINISTRA 

1571 IF 0M= 13 THEN 0M=14iG0TQ 1580 
I57£ QM= 1 3 

1580 £=fNE<A > !P0KE UI,FNM< A > * 10 : POK 
E 14,0 

1590 GOSUB £0000 

1600 IF E >93 OR E< 35 THEN 14£6 

1610 X=X-3 

1620 POKE V ,X ! POKE V+1,1 SCOTO 14£0 

1630 REM A DESTRA 

1631 IF 0M= 13 THEN OM=14:GOTO 1640 

1632 0M= 13 

1640 E =FU r <A > ! POKE UI,FNM( A > * 10 : POK 
E 14,0 

1650 GOSUB £0003 

1660 IF E >39 OR E <35 THEN I4£0 

1673 X=X+3 

1680 POKE V , X : POKE V+i,Y:GOTO 1423 

1690 REM IN BASSO 

1691 IF 0M= I 3 THEN 0M=14:G0T0 1700 
1632 OM» 13 

1733 E=FNH<A) :P0KE W,FNM< A ) * 10 i POK 
E 14,0 

1710 GOSUB £0000 

1780 IF E >99 OR E <35 THEN 1480 

1730 Y=Y+3 

1740 POKE V ,X : POKE V+l,YiGOTO 1420 
1750 GOTO 1420 

1760 REM GIOVANNI BELLU 1 SOFTWARE 
1934 


1770 PR I NT" [OLEARI IVERDE21 
1780 PRINT" 


1790 rR I NT 11 


1300 PRINT"! * 

!" 

1810 PRINT”! - - - - - 

- !” 

1820 PRINT”! - «Mi 

mm - !" 

1830 PRINT"! - ! !-!-!-!- 

! il * il" 

1340 PRINT"! - * * 1 - i - - i£ ~ 

! - !” 

1350 PRINT"! ! - 

! - n» 

1860 PRINT"! -1- 

! - !" 
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1670 PRINT"» - 


1 830 FRiNT"S “ -«“fi-*-**- 

1330 PR I NT " §ì | D 1 - 1 - 

- »" 

19 O 0 pRrNT' n - m - si - m 

♦ w 

1910 PRINT"* - UH - SI - « - 

- g : ' 

1920 PRINT”3I - - li - 

™ Si 

’fMwiwVrP. 

1330 FRINÌ"» — m - 


1940 FRINÌ 11 » - m - 

- »" 

1350 PRnn' mmm - mmmmm + mm - 

I960 PR INI* 1 » - - 


Ì370 

1330 

1390 

£030 

£010 


PRINT"! - 

mm - W’ 

PR INI"» - 


mm - w 

PRINT"» - 


- $r 

FRINÌ"! « » GIOVANNI W ~ 
4 iT 

PRIMI"» » BELLO 1 1985 S 


£ 0£0 

£036 

£040 

£050 

£063 

£070 

£030 

£090 

£110 
£ 1£0 

£130 

£143 

£150 

£160 

£170 



mmammin or-Er; 

PRINTR3$ n LI VELLO 11 
PR INTR4$" PUNTI 11 
RETURN 

FL = 1 s TI $ = “000000" i LV 
* LV + 1 

l = INTCLV/5 ) + 1 s IF J > 

6 THEN ££ 1 0 
TB = B$CI) 

FRINÌ RB TB : FRI NT R£$ I : P 

FINI R5* LV 

RETURN 

PGKE U,0! FOKE 53£80 ,0 i FL=0 i TI 

B~ 000000 " s GOTO 14£0 

REM 

REM RIFLESSI ... LENTI* 

REM 

PR INTR 1 B 11 tRVSl ,! T$ 

POR J=1 TO 3 ! FOR KM TO £55 3 


TEP 5 ■ POKE W,KshEXT 
£130 FOR K = £55 TO 1 STEF -5: POKE lì 
,KsNEXT 
£130 NEXT 

££00 POKE W,0 SPRINT" CCLEARr 1 SPOKE 
V+£ 1 /3 * GOTO ££30 

££10 POKE V+£l ,0 SPRINT” CCLEARHRVS 
J HAI DEI RIFLESSI VERAMENTE 

a 

2220 PR INT" 1RVS 1 ECCEZIONALI ... 1 

il 

2230 FRINÌ "ANCORA ?” 

22-40 GET A$i IF ft$0"3" AKD A^O’N" 
THEN 2240 

2250 IF A$="S" THEN RUN 
2260 IF A*=*N" THEN END 
2270 REM GIOVANNI BELLI) ‘ SOFTWARE 
1985 

10000 REM 

10001 REM R AND OH SEQUENZA 

10002 REM 

10010 FOR K = 1 TO 10 

10011 S (K ,3 ) =FNMC A ) 

10015 FOR J = 1 IO 2 
10020 SK = INT (RND <1)#10+T) 

10030 IF SK < 1 OR SK > 10 THEN 
10020 

10040 S < K , J ) = A (SK 1 

10041 NEXT J,K 
10933 RETURN 

20000 FOR J=1 TO 10! IF E=A(JJ THEN 
J=10:NEXTiGOTO 20011 

20001 REM 1778 

20010 NEXT ! RETURN 

20011 IF R 1 =0 THEN POKE 1778,E:P0KE 

1779, 32! GOTO £0020 

20012 POKE 1 778 ,R 1 ! POKE 1773,EiG0T0 

20020 

20020 IF R 1 =0 THEN Rl=E:GOSUB 21000 
! RETURN 

20030 FOR K= 1 TO 5 

20040 IF S<K,1)=R1 AFE S(K,2)=E TH 
EN J*K sK = 10! NEXTK :GOTO 20060 
20050 NEXT:R 1=0: POKE 53280,0 
£0051 POKE 1778 ,32 s POKE 1773,3£:G0T 
0 £0100 
200G0 REM 

20061 S(J,3)=S(J,3)-I iPOKE 1778,32: 
POKE 1773,32 

20062 IF S ( J , 3 ) =0 THEN S(J,1>=A(FNM 
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t A ) y i S < J , £ ) =A CFNM ^ A J > 

£0063 IF S^J/3^-0 THE! I 

) 

£0065 R i =0 

£0068 FOR Mi IO £0 SPORE U,FNM«A>*5 
sìsEXTJPOKE 14/0 * GOSUB £060 
£0070 T I f— ' 000060 ” : RETURN 
£0100 F OR K=E00 TO 0 STEF -5 5POKE 14 
,MNEXT 

£0110 T*=B*CRMK1 >*6+1 ) 

£0120 FRINIR*!*: RETURN 
£1000 FOR K-t TO 5 

£1010 IF S(K,1>-E OR 3CK/£)“E THEN 
POKE 53£80 , 1 s K a 5 s MERI s RETURN 
21080 FEXTsPOKE 53280 , 0 ; RETURN 
50000 FRI NT" [CLEAR ] " 5 ML = 60220 
50010 FR = 14 

50020 FOR K =0 TO 63 3 TER 6 SPRINTA" 
DATA 11 ; 

50030 FOR X = 0 TO 5 
50040 A=PEEKCPR*64+K+X> 

50050 PRINTA B ,"I 

50060 NEXTKS NL=NL+ 10 

500 70 PRINT" E2 LEFT3 H s NEXT 


801 10 

DATA 

0 

r 0 r 

a , 

0 , 

0 , 0 

60120 

DATA 

160 

0 

, 170 

, © 

, 0 

, 170 

60130 

DATA 

64 

0 

, 165 

, 0 

, 0 

/ 89 

80 140 

DATA 

0 

/ 30 / 

0 , 

, 0 , 

42 , 


60 1 50 

DATA 

20 

1 


127 

/ 

0 , 

3 

r 

255 / 

80160 

DATA 

, 0 

1 

/ 

35 

/ ì 

208 

i 

0 

, 255 

60170 

DATA 3 
, 240 

/ 

170 

r 

178 

/ 

3 

, 248 

60 130 

DATA 

0 

0 

/ 

240 

r 

132 

r 

0 

r 0 r 

60 1 30 

DATA 

0 

r 

0 , 

0 

, 0 

/ 

0 

, 0 

60200 

DATA 

0 

r 

0 , 

0 

, 0 

/ 

0 

, 0 

60210 

DATA 

0 

r 

0 , 

0 

, 0 

/ 

0 

, 0 

80220 

DATA 

0 

r 

0 , 

0 

/ 0 

/ 

1 

70 , 0 

60230 

DATA 

, 0 

0 

/ 

170 

/ 

160 

/ 

0 

/ 165 

60240 

DATA 

0 

0 

/ 

83 

/ 1 

64 , 

0 

/ 

30 , 

60250 

DATA 

0 

0 

/ 

42 

r 

0 , 

1 

/ 

127 / 

60260 

DATA 

64 

3 

r 

£55 

f 

80 

r 

1 

/ 35 , 

60270 

DATA 

0 

3 

r 

255 

r 

0 , 

0 

/ 

170 , 

60£80 

DATA 

192 

0 

r 

170 

r 

0 , 

0 

/ 

£55 , 

60230 

DATA 

0 

0 

r 

255 

r 

198 

/ 

0 

/ 0 , 

60300 

DATA 

0 

/ 

0 , 

0 

, 0 

/ 

0 

/ 0 

60310 

DATA 

0 

/ 

0 , 

0 

, 0 

/ 

0 

/ 0 

60320 

DATA 

0 

r 

0 , 

0 

, 0 

r 

0 

, 0 



Le immagini 
di questo 
fascicolo 

Tempi modem), il capolavoro dr Chartie 
Gtmpitn. La storia computer è anche 

Qoetfà deìTuomp, e rii un mudo Evento di 
lavorare. Ancora adesso, dalie macchine a 
si aspetta la liberazione dai lavoro 
manuale. 





OLTRE IL BASIC 


Di solito, te brevi routine scritte in as- 
sembler, devono essere trasformate nei lo- 
ro rispettivi codici numerici decimali. Per 
poter essere caricate in memoria dal pro- 
gramma Basic principale. Questo compor- 
ta un non indifferente quanto noioso lavo- 
ro, in quanto una piccola disattenzione può 
in seguito portare irreparabili danni al 
normale funzionamento del programma, 

ÀI RUN il programma chiederà rindi- 
rizzo di partenza e quello di fine che vo- 
gliamo trasformare in linee data dopodi- 
ché il numero di linea da cui devono partire 
le istruzioni DATA (che deve essere mag- 
giore di 30), 

Dopo un breve periodo di tempo, che di- 
pende da quante locazioni di memoria devo- 
no essere trasformate, apparirà automati- 
camente il LIST delle linee DATA che so- 
no state create. 

Ma il bello viene ora: se infatti andiamo 
a fare 11 LIST, vedremo che il programma 
"DATA MAKER 1 sarà misteriosamente 
scomparso ed avremo solamente Le linee 
DATA die interessano e che possono esse- 
re quindi salvate su nastro o su disco per 
poi agganciarle al programma cui erano 
destinate (articolo “ÀPPEND" pag, 37 n. 
15 CX.C,) 

questo punto vi sarete chiesti che fine 
ha fatto ìL», programma scomparso, È 
presto detto! Il trucco consiste nel manipo- 


PUNTATORI 


Data 

Maker 



Ilprogramma 
consente di 
trasformare una zona 
qualsiasi di memoria 
in linee basic DA TA 


lare ì puntatori di inizio Basic, contenuti 
nelle locazioni 43-44 ($002b-$002c), in 
modo tale da spostarli all'inizio delle linee 
DATA che si saranno formate alla fine del- 
la fase di trasformazione. 

Come conoscere tale indirizzo? 

Anche in questo caso chiediamo aiuto ad 
un altro puntatore di pagina zero e preci- 
samente al 65-dtì ($M41-$0042). Tale pun- 
tatore contiene infatti V indirizzo del DA- 
TA prossimo alla Lettura, 

Poiché detto puntatore viene inizia lizza- 
to dopo la prima READ eseguita, ecco che 
la linea 200 pensa a fare questo decreme n- 
(andò poi tuie indirizzo di 9 per ottenere 
l'indirizzo effettivo della prima linea DA- 
TA, 

È chiaro che spostando il puntatore di inì- 
zio Basic all'Indirizzo trovato in questo 
modo, non faremo altro che nascondere il 
programma precedente rendendo visibìli 
solamente le linee DATA che interessano. 

Detto questo chi è capace di far 'risor- 
gere' il programma DATA MAKER? 

| E visto che starno in tenta di indovinelli, 
peraltro molto semplici chi sa dire a che 
cosa serve la variabile 4l O” definita nella 
linea ISO? 

La sub routine in linea 290 consente, trami- 
te il passaggio dei parametri X, LR%, 
HB% di trasformare un indirizzo ne) suo 
Byte Alto e Basso da poter “Pokare" nei 
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puntatori, 

I puntatori utilizzati dal DATA MA- 
KER sono 6 locazioni di pagina zero: 

+ 

251- 252 = contengono il valore della lo- 
cazione di partenza (linea 150) 

252- 253 = contengono il valore della 
locazione finale (Linea 155) 

249“250 “ contengono il numero della 
linea data da creare (Linea 140) 

(Per default il numero delle linee DATA 
viene incrementato di uno, ma basta cam- 
biare l'incremento della variabile LN nella 
linea 18 del programma per avere uno 
‘slip 1 maggiore). 

L'introduzione delle linee DATA e fatta 
mediante l'ormai sfruttatissima utilizza- 
zione del buffer di tastiera con la forzatura 
del RETURN (lìnee da 27 a 29 ). 

A chi fosse interessato a tale argomento 
consiglio di rileggere l'articolo* Tl buffer 
della tastiera' pubblicato sul numero 8, na- 
turalmente sul Vostro,** Commodore Com- 
puter Club* 

Giovanni Bearti 


100 REM * DATA MAKER 

110 1 NP UT ,p JI ND I R 1 Z 2 0 DI RARTENZ A " ; SA ! 
IFSA<8THENI 10 

1£0 INPUT* INDIR IZZO DI F I LE " f E A 
185 IFEA< -SA OR EA >85535 THENPR INT" 

CD" f * GOTO 120 

130 INPUT" IN IZ IO NUMERAZ IONE BASIC %*LN 
13£ 1F LN<31 OR LN>63©00 THE NI "ITT 1 ; i GOTO 130 
140 X=LN- 1 :0OSUB£90iPOKE243,LB^iPOKEa50,HBX 
150 X =SA -7 ‘ GOSUBE30 i PQKE25 1 , LBVi * P0KEC5E # HBX 
155 X =EA t GOSUBE30 t P0KES53 ,LBX s FQKE254 , HBX 
18 0 PR 1 NT * *J n SPC < ££0 > SFC < E 3 1 > * 

SOTTENDERE, PREGO " 

170 LN=»PEEK <849 ) +PEEK t B50 > *£5S ! LM=LN* 10 i X~LN 
i 75 GCSUBE30 : P0KE24S , LBX * FOKE230 ,HBV* 

ISO 0=1000 s X=PEEK<E5 1 > +PEEK < £3£) *23G +7 
135 GCSUBB90 * P0KES5 1 ,LB7.:P0K£25£ ,HBX 
130 IF XCPEEK<£53)+PEEK<254)*S56 THEN £20 
300 PRINT"U" t JREAO SA SSA^PEEK C 65 > 

+ PEEK CB6 > *256-9 

e 10 X s SA ! GOSUB290 : F0KE43 ,LBX* PQKE44 ,HB%lLIST 
£20 FOR J =0TO8 

£30 D-PEEK CX + J ) : 0 1*=R IGHT$ CSTR* CO + D > ,3 > 

£40 □£$=□£$+□ % - 
£50 MEXT 

£60 PR I NT B SSjjSlM*' LN 11 DATA h ; LEFT*CD2*rLENCD2*> - 1 ) 
£70 PR IMT H GOTO 170ÈS" 

£80 PCKE 198 r B :P0KE631 , 13JFQK£©3£, 1 3 ! END 
230 HBX=XX35G i LB"/.=X”HB>:*£5G : RETURN 

READY. 



52025 MONTEVARCHI (Arezzo) 

Vìa Marconi, 9/a 
Tel. (055) 98.02.42 - 98-25.13 


ESTRATTO DAL NS. CATALOGO GENERALE COMMODORE 04 


GESTIONALI 

GOD0 12 Contabilità ordinaria 
CGD0G2 Magazzino (collegato) 
CGD0Q3 Fatturazione (collegato) 
CGDQi 8 Gestione C/C multipli 
GGDQ1 1 Arredograph 
CGD015 Gestione Biblioteca 
CGD007 Gestione indirizzi 
CUNQ53 Easy script nastro 


230-000 
150 000 

1 50.000 

40.000 

195.000 

ao.ooo 

60.000 

50000 


UTILITY 

CUD022 Pascal OXFORD 150 000 

Assemblar CM/D da 35. ODO 

CUD029 Isam 75 000 

CUD0S2 Slmon's Compilar 70 000 

CUDD81 Compii. BLITZ 60 000 

CUD036 Unguard 120 000 

CUD039 Clone 80 000 

CUOI 03 Bisector 80.000 

CUOI 04 Pi rate Disk 70. 000 

CU DO 53 Copy 190 70 000 

CUD040 Turbo Disk 60 000 

HARDWARE 

CHVQQ8 Programmatore EPROM '64 250. 000 
GW004 Monitor 14" colore con 

audio orientabile CABÉL 510 000 
CHV0OS I nte riaccia CENTRONi CS 95. 000 

GVD006 Copri computer plastica 19000 


CHV021 Backup cassetta 
GVD001 Dischi 3M/OATAUFE 
GVW006 Mastri 801/802 
GVD002 Kit pulizia disco (2) 
GVD012 Ricambi per Kit (10) 
GVD0Q3 Contenitore 1 0 dischi 
GVD004 Contenitore 40 dischi 

MANUALI 


35.000 
3-950 

15.000 

20.000 

30.000 
6.000 

29.000 

28000 


CMB050 Guida al CBM64 28-000 

CMB051 Sistema operative CBM64 

+ SUPERMON 38.000 

GMB054 Periferiche COMMODORE 25.000 
GMB055 1 segreti del 1541 28.000 

CMB056 Corso di grafica CBM64" 24 000 
CMB057 Corso di Assembler CBM64** 38-000 
“ Completi di programmi nastro 

MANUALI PROGRAMMI 


CMBQ08 

CMB014 

CMB017 

CMB018 

CMB019 

CMB030 

CMB033 

CMB034 

CMBQ35 

CMBQ36 


Wedge 4 0 
Vizawrite 
Simon 
Master 

Extended basic 
Pet speed 
Easy script 
Tool 

Superbase 

Clone 


10.000 

15.000 

20.000 
28.000 

8.000 
1 5 000 
20000 

15.000 

25.000 

10.000 


CO N DLZ ; DI VENDITA - Lji rr a re a vane rasa FRANCO Monili vare h I. Par apoitizitìni In cOrrtrasaG a nù calcolare L 5SQ9 pc r bOr- 
fxi sip^ise posteli e varie. Con pagamento anticipalo non saranno adda Oliate. M pagamento anticipato p jò esse-e effettuata anche 
CQP ÀSSfrfloo 31 cf c. Won Inviare contanti: o francQUolli. I prezzi sono al netto di IVA del 1 ammanire nel manuali a compr&sa IVA 
CATARO CIO STATUITO A RICHIESTA. ai prima ordire o a ld rk h leala di catalogo II Vs. rene aara inserito ne Ita EVM MAILING LIST e 
vorrei 0 lonotl potlpOlcimonte Informali dall» ngwlta sul Va. computer. 


CMB037 Unguard 10.000 

CMB038 Pascal Oxford (Inglese) 20 000 
CMB039 Km mm ‘Pascal 10 000 

CMB040 Sam redter 15 000 

CMB041 Cale result 15 000 

CMB042 Multi pian HELP 12.000 

CMSQ46 Easy file 25. 000 

CMS060 Super espander 15.000 

OFFERTE SPECIALI 

Espansione 16K Vie 20 (1) 90.000 

Espansione 32K Vie 20 (1) 120 000 

Grafica + 3K VIC 20 (2) 54.000 

(1) Con manuale Guida VIC 20 

(2) Con manuale Perif. VIC 20 

BIBLIOTECA 64 65,000 

Comprende: Guida al GBM 64, Sistema Ope- 
rativo C8M64, 1 segreti del 1541, Schema 
elettrico di eco, SUPERMOM, Schema elettrico 
CBM64. 


Cognome 


90.000 
120.000 

54.000 


Nome 


Indirizzo 







OLTRE IL BASIC 


L INGUAGGIO 

Macchina 


PUNTATORI 

(MEMORIA) 


PROGRAMMA 



INC I R IZZAMENTQ jjyp [NNNNS] 
INDIRETTO 


FlG. 1 


PROGRAMMA 


PAGINA ZERO 


INDIRIZZAMENTO 

INDICIZZATO 

indiretto 


RESTO MEMORIA 




m* • 

m 


I # • 


1- > 

POINTER LB 

— — r i 

1 *f 

QP GODE 


-GD* 

POINTER HB 


L K+) 

r4 

TABELLA 

STATEMENT 



■ ■ * 


-, 


DATA 

NEXT 




!“► LB -, 


DATA 

t * ■ 




►nb r 


« P * 












[LO A [NN),YJ 


FlG .2 


Ei(i- L Indiriz&imenm 
indi «ilo. 


tuita dal contatore di programma (PC) 
che è un registro a 16 bit* il cui scopo è 


iti il tvvntfì df’l n,1Wl (Il 




QUINTA PARTE: 

L’ INDIRIZZAMENTO 

Ri icapitoliamo i concetti di base esa- 
minati nelle quattro puntate precedenti. 
Chiunque abbia provato, almeno una 
volta, a creare loop (iterazioni) di una 
certa lunghezza in Basic per eseguire gra- 
fici di funzione o per trasferire dati all'in- 
terno della memoria stessa, si è irrime- 
diabilmente scontrato con una lentezza 
esasperante, tale da far desistere ii più 
volenteroso degli operatori, Il motivo di 
tale velocità limitata è l'interprete Basic* 
che richiede un numero notevole di istru- 
zioni in linguaggio macchina per la più 
semplice delle procedure* 

Ma perchè allora non lo aggiriamo? 
Nasce dunque la necessarietà dì capire 
come funziona il microprocessore che 
utilizza il Commodore 64, il 6510 (oppu- 
re il 6502). Come già sappiamo, questo 
circuito integrato* definito più generica- 
mente CPU (dall'inglese Central Proccss 
Unit), lavora ad otto bit, vale a dire che 
la lunghezza di ogni dato o istruzione 
non può superare le otto cifre in binario, 
equivalenti al fatidico 256 in notazione 
decimale. 

. IFinterno del 6502 sono contenuti al- 
cuni registri, tutti ad 8 hit, utilizzabili per 
la memorizzazione temporanea dei dati 


fi^ 2, Indirizza menioi 

indicizzalo indiana 

transistori (A,X,Y), o per la verifica del- 
lo stato del processore (P). Unica ecce- 
zione* se cosi può essere definita, t costi- 


gramma che viene eseguito e di valutare 
il successivo. 

In realtà si tratta di due registri ben 
distinti (PCL, PCH) che* abbinati, sono 
in grado dì indirizzare Fino ad un massi- 
mo di 65535 locazioni di memoria (16 bit) 
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vedi figura 2. 

Questa tecnica di indirizzamento com- 
posta non ci è nuova, ma è sempre utile 
ricordare che i numeri compresi fra 256 e 
65535 vengono immagazzinati in due re- 
gistri successivi chiamati per convenzio- 
ne LB (Low Byte) ed HB (High Byte) 
nell'ordine LB.HR. Il toro valore globa- 
le è dato dalla formula: 

ADDR = LB + 256* HB (Fig. 3), 

Al Ratizziamo le istruzioni che già co- 
nosciamo, Nelle precedenti puntate 
(pubblicate sui numeri 6, 8, 13 e 17 di 
Commodore Computer Club) abbiamo 
analizzato le istruzioni più importami ed 
alcuni indirizzamenti tipici del 6502 (& 
651(1). Prima di riesaminarle molto velo- 
cernente, è bene ricordare che le istruzio- 
ni sono in tutto 56, mentie gli indirizza- 
menti disponibili sono 13 ; comunque 
nessuna istruzione prevede ! 'utilizzazio- 
ne di tutti questi, cosicché alla resa dei 
conti abbiamo un set di 15 1 istruzioni con 
tutte le variabili possibili. 

A seconda dell operazione che svolgo- 
no, le istruzioni si dividono in cinque 
settori: 

• T rasferi mento dati. Caricano i registri 
con dati nella memoria (LDA LDX 
LD Y ). Caricano la memoria con il conte- 
nuto dei registri (STA STX STY ), tnter- 
seambiano i registri tra di loro (TAX 
TAYTYA TX A), 

• Elaborazione dati. Eseguono le fun- 


zioni aritmetiche e logiche, incrementa- 
no c dccrementano registri e memoria 
(INC DECINXDEY). 

• Confronti test e diramazioni. Eseguo- 
no confronti fra registri e memoria (CPX 
CPY CMPjr Eseguono diramazioni in 
seguito a confronti con il registro di stato 
P (BMJ BPL BCC BCS BEQ BNE BVS 
BVC). 

• Controllo. Modificano il registro di 
stato P (CLC SECCLD SED CLV), 

• flusso di programma* Eseguono salti 
con o senza ritorno ( JMP JSR RTS). 

Metodi di indirizzamento 

Analizzate le istruzioni di base, ricapi- 
toliamo i metodi di indirizzamento, quel- 
li cioè che determinano il campo nel qua- 
le agisce una determinata istruzione: 

• Implicito (1 byte) riguarda per lo più 
la gestione interna dei registri (TAX 
1NX), ma si può occupare anche della 
gestione del flag di stato P (CLC); non 
richiede in nessun caso che vengano spe- 
cificati parametri. 

• Immediato (2 byte) l'operazione indi- 
cata dai codice operativo viene eseguita 
sul numero che lo segue immediatamen- 
te (esempio; LDA * $00), L'operando, 
naturalmente non può essere maggiore 
di 255. 

• Assoluto (3 byte) L'operando che de- 
ve essere trattato dal l'istruzione è conte- 
nuto nel registro di memoria identificato 


dai 2 byte che seguono il codice operati- 
vo stesso (esempio: LDA $A100); i due 
byte sono nella solita disposizione LB, 
HB. 

• Pagina zero (2 byte) variante delì in- 
dirizzamento assoluto, pone automatica- 
mente HB uguale a 0, limitando così il 
campo dell'operazione alle prime 256 lo- 
cazioni di memoria che peraltro conten- 
gono dati molto importanti per il funzio- 
namento del calcolatore (LDA $F0), Ta- 
le registrazione aumenta ovviamente la 
velocità di esecuzione. 

• Relativo (2 byte) la parola che segue 
(istruzione indica uno spostamento, in 
avanti di 128 parole ed aJI'indietro di 127. 
secondo uno standard piuttosto com- 
plesso (esempio: BEQ St 12). In ogni ca- 
so provvede ai debiti calcoli l'eventuale 
assemblatore, 

• Indicizzato (2 byte se in pagina zero. 3 
byte se assoluto). L'indirizzo sul quale 
deve agire l'istruzione viene ottenuto 
dalla somma del dato (o dei dati se asso- 
luto) posto dopo il codice operativo, con 
i! registro interno (solo X e Y) specificato 
nell'Istruzione stessa (LDA SAQ01.Y), 
Se abbiamo per esempio l'istruzione 
LDA SCOOO.Y (in cui Y=Ì05), la loca- 
zione di memoria che verrà posta in A 
sarà $(COOO + 05) =$C0G5. 


fili- X IntliriErarrtcnUì' 
irttli retto 
indicizzilo. 
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L’indi rizzameli tu indiretto 

Il termine 'indiretto' 1 , tecnicamente 
deriva dal fatto che invece di prevalere 
l'indirizzo che segue imm ed latamente l'i- 
struzione, il successivo valore nella se- 
quenza di programma è un puntatore ai- 
li ndirizzo interessato. Cerco di chiarire 
meglio il concetto. 

elle pagine 0, 1,2, 3, cioè nelle loca- 
zioni di memoria che vanno da 0 a 1023, 
(appena “sotto" il video del C-64) sono 
contenuti un gran numero di puntatori 
che “puntano -1 per l'appunto a routine* 
nella ROM fondamentali per il funziona- 
mento del Commodore 64, E' anche no- 
tò che questo fatto aumenta notevol- 
mente le doti di flessibilità del calcolato- 
re, perchè permette alTutcme di modifi- 
care a proprio piacimento tutti o quasi i 
procedimenti normalmente eseguiti 
automatica mente. 

A questo punto è lecito chiedersi come 
faccia il 6502 a prelevare I indirizzo indi- 
cato nei puntatori. In effetti, con le cono- 
scenze che abbiamo a disposizione, que- 
sto non ci è permesso, a meno di compli- 
cazioni assurde che resentano il limite 
della correttezza e della linearità di 
progra min azione. 

Ma gli “architetti" dei 651)2 hanno 
pensato anche a questo, creando un'uni- 
ca istruzione che sfrutti l' indirizzamento 
indiretto non indicizzato (piu oltre ana- 
lizzeremo l'indicizzazione abbinata al- 
l’indirezione), ma si rivela di importanza 
fondamentale soprattutto nella gestione 
della ROM a cui accennavamo prima: si 
tratta di “JMP (XXXX)" (op code 6C 
XX XX), 

Il funzionamento è abbastanza sempli- 
ce da capire, ma occorre prestare sempre 
un certa attenzione ai calcoli da eseguire 
in fase di stesura del programma e dì 
modifica dei puntatori. Infatti in seguito 
a questa istruzione il P.C (Contatore di 
Programma) viene modificato in modo 
tale che il ILow Byte sia caricato con la 
parola contenuta nella locazione di me- 
moria indicata dall'istruzione, e che 
l’High Byte sia caricato con il contenuto 
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COPRI TASTIERA 
IN PLEXIGLAS 
PER: VIC 20, 
C.16, 



Protegge la tua tastiera 
dalla polvere 

La puoi avere per soie 
L. 1 0.000 Iva compresa, 
esciuso spese postali 
per pagamento 
contrassegno (L. 2,600) 
comprese se con vaglia 
anticipato. 
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della locazione immediatamente seguen- 
te a quella indicata. 

In altre parole data l'istruzione 
JMP(£0306) e supponendo che (S0306) 
contenga (SIA) c che ($( )307) contenga 
($A7), il P C. si posizionerà al l'indirizzo 
SA714 (vettore di List). L'utilità pratica 
del fatto di avere in un’area RAM (e 
quindi modificabile) tutti t vettori relativi 
alle funzioni più importanti è basilare, 
perchè permette di alterare tali routine*, 
implementandole o addirittura sosti- 
tuendole con altre create allenente. 

L" indicizzazione 
abbinala all’ indirezione 

Accennavamo prima alla possibilità di 
abbinare l' indicizza zio ne alla tecnica del- 
Tindirezione. Bene, fin d’ora è bene 
chiarire che esistono due soluzioni ben 
differenti fra di loro nonostante la buffa 
(ma non troppo) caratteristica di chia- 
marsi pressapoco allo stesso modo (indi- 
rezza mento indicizzato indiretto e indi- 
retto indicizzato). La caratteristica prati- 
ca che li contraddistingue è che la prima 
di queste tecniche sfrutta solo ed esclusi- 
vamente l'indice Y, mentre la seconda 
sfrutta X. 

1^ rima di osservare le ulteriori diffe- 
renze, è indispensabile osservare che en- 
trambe “lavorano" solo in pagina zero, 
spetto questo da tenere bene a mente. 
L'indirizzarne nto indicizzato indiretto 
(quello che sfrutta Y, per intenderci) si 
comporta nel modo seguente: 

L'indirizzo effettivo del Tisi ruztone è 
dato dal contenuto della locazione in pa- 
gina 0 (L.B.), più il contenuto della loca- 
zione seguente moltiplicato per 256 
(H.B, ), piu il registro Y (indice). In altre 
parole, i due byte* in pagina 0 (dei quali 
viene indicato solo il primo), sono dei 
puntatori ad una tabella di 256 elementi 
locala in qualsiasi area della memoria, 
che può essere scorsa per intero modifi- 
cando solo L'indice Y (INY, DEY). 

Un esempio: 

LDA($F0,Y) dove $F0 contiene {$ 16) e 


Vìa 


Gap — 

Città 



NUMERO PEZZI ORDÌNÀTÌ 
(IN LETTERE) 


J 
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S F 1 contiene [SCO], con Y=$03, carica 
1 H accumulatore con il contenuto della lo- 
cazione di memoria $[C0Ì6+03]”$CI9, 

N el caso dell 'indirizzamento indiretto 
indicizzato (con X come indice), le cose 
sorto lievemente diverse. L’ìndice, infat- 
ti, viene aggiunto immediatamente al- 
l'indirizzo specificato da If 1 istruzione, per 
puntare ad un altro indirizzo indiretto 
(espresso in LB, HB ) sempre in pagina 0. 
E' importante rilevare che la somma non 
tiene conto del riporto, quindi se il risul- 
tato supera il limite della pagina la loca- 
zione considerata è quella risultante di- 
minuita di 256. Tale caratteristica per- 
mette di creare una tabella di puntatori 
allocati in pagina O che può essere analiz- 
zata modificando semplicemente lindice 

Le immagini 
di questo 
fascicolo 


X (INX, DEX). 

Ad esempio: 

LDA(IHLX) carica in À la parola il cui 
L.B. è dato dal contenuto di $[F0+X]ed 
I H. B. dal contenuto di $[F1+X], 

Ricapitolando, l'indice Y influisce sul- 
l 'in dirizzo effettivo, mentre l’ìndice X 
modifica direttamente i puntatori in pa- 
gina 0, Ecco spiegata la strana somiglian- 
za dei due nomi. Dall’uso contempora- 
neo di entrambe le tecniche risultano 
vantaggi immediatamente apprezzabili 
che permettono finalmente di lavorare in 
linguaggio macchina con una certa linea- 
rità e disinvoltura. 

Applicazioni 

Per quanto riguarda le applicazioni, i 


i! regata americano Fritz iang presente per fa poma 
volte ne> Sue ftfm Matroporis del J927 la prospettiva di 
ito monde tfewTìJflaio dalle macchine. Perfapm ia volta 
£■■ discole a lutti i Uveiti sut ryoto & fa funziona defie 
macchine. 


programmi proposti si commentano de 
soli. 

_ Il programma \ esegue esattamente 
la stessa operazione de (l'ultimo pro- 
gramma presentato nella puntata prece- 
dente, e cioè trasferisce i messaggi di 
errore ed j tokens del Basic sul video, 
solo che sfrutta la tecnica dell’ indirizza- 
mento indicizzalo indiretto (Y). 

La prima parte costituisce la necessa- 
ria mizializzazione, che permette di ripe- 
tere più volte l'esecuzione senza incorre- 
re in grossolani errori. Tutti i valori inte- 
ressati ($AOOO, $B4()0, $D8(M.ì) vengono 
sistemati in pagina 0. 

Nel nostro caso vengono locati in un'a- 
rea destinata al floating point, e che 
quindi va adoperata solo quando non si 
usa il FLP, In ogni caso a lato è riportata 
una tabella di locazioni libere o per lo 
meno utilizzabili in pagina 0. Il registro X 
indica il numero di blocchi (da 256 bytes 
l’uno) che devono essere trasferiti, men- 
tre il registro Y contiene l'eventuale 
OFFSET, cioè il numero il bytes (infe- 
riori a 256) che devono essere trattati 
oltre ai precedenti blocchi. 

La subroutine si è resa necessaria per 
meglio identificare la parte centrale del 
programma , che del resto è già chiara per 
conto suo: analizzandola ci si rende ef- 
fettivamente conto .della funzione di X 
come contatore per 256 e della funzione 
di Y come indice, 

□ II programma 2 non è altro che una 
variazione sul tema del programma pre- 
cedente. La sua caratteristica è quella di 
sfruttare una subroutine in ROM che ef- 
fettua il trasferimento dei dati (SÀ3RF). 
Tale procedura richiede come dati in- 
gresso: la locazione d’inizio dei dati jda 
trasferire (5 F, GB), la locazione finale dei 
dati da trasferire (5À,5R) e la locazione 
finale delia destinazione dei dati (58,59). 

I valori in questione vengono fomiti 
dalla parte iniziale, quindi si salta diret- 
tamente in ROM per tornare al Basicalla 
fine dell'esecuzione, 

II programma 3, inserito per scopi pu- 
ramente dimostrativi, è una semplice im- 
postazione della pagina e della sua puli- 
zia, ricalcando esattamente la procedura 




Hasic. Differenze? Provate a cronome- 
trare quanto tempo ci mette, se ci 
riuscite! 

Il programma 4 è un applicazione di 
entrambe le tecniche di indicizzazione. 
La prima .parte serve per inizìalizzare i 
puntatori, trasferendo in pagina zero i 6 
byfes che seguono immediatamente il 
programma stesso. Per fare ciò si sfrutta 
l'indicizzazione indiretta, anche se ob- 
biettivamente se ne potrebbe fare a me* 
no- ciononostante è importante rilevare 
la tecnica rilevata, cioè piazzare i punta- 
tori in fondo al programma per poi riuti- 
lizzarli quando serve: in caso di indirizzi 
più numerosi, la tecnica è fondamentale, 
Dopo l'inizializzazione vengono chia- 
mate due sottoprocedure della ROM, la 
SCN KEY (SEA87) che serve per leggere 


Locazioni esadecimali 
di pagina zero 
utilizzabili dall’ utente 

19-21 stack iempor. per stringa 
22-25 area dì utilizzo puntatori 
26-2A risultato FLP di molt. e dìv. 
4E-52 FLP temporaneo 
57-5B FLP temporaneo 
5C-60 FLP temporaneo 
61-68 FLP accumulatore 1 
69-70 FLP accumulatore 2 
FR-FE spazio libero per l'utente 


la tastiera, e la GET1N ($F13E) che ri- 
porta in A il valore ASCII del tasto pre- 
muto, PeT i controlli si sottae $30 (il nu- 
mero 1 corrispondente ai codice ASCII 
$31, A seconda sia stato premuto il tasto 
l. 2 o 3. un messaggio diverso viene 
stampato sullo schermo; premendo lì ta- 
sto 0 il programma termina. Per scrivere 
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sullo schermo si sfrutta un'altra procedu- 
ra della ROM, la CHROUT (SF1CA) 
che stampa sullo shermo il carattere li cui 
codice ASCII è contenuto in A. Que- 
St'ultìma parte sfrutta fin diri zzamento 
indiretto indicizzato (con X) per puntare 
al messaggio desiderato, che si può tro- 
vare ovunque nella memoria, c la cui 
lunghezza è indicata da Y. 

aturalmente questa serie di pro- 
grammi vuole essere solo una base di 
partenza, una proposta che viene offerta 
all’utente per permettergli di escogitare 
nuove applicazioni e soluzioni sfruttan- 
do appieno la propria fantasia, Ouindi, 
in bocca al lupo e,, . buon divertimento! 

Simun* Riti ola 


LINGUAGGIO MACCHINA <1> 

10 PRINT" CCLEAR J [DOUINI I RIFERISCE 
SULLO SCHERMO DEL " 

80 PRINT "COMMODORE 64 LE ISTRUZ ION 
I BASIC ED" 

30 PRINT"! MESSAGGI DI CONTROLLO * 
40 PR I NT "SFRUTTANDO L 1 INDIR IZZ AMEN 
TO INDICIZZATO" 

50 PRINT" INDIRETTO (CON YH4 DONNI 

u 

60 PR INTCHR*< 1 4 ) 

100 READ A*:IF VAL<A*><0 THEN PRINT 
■ IRVS 3SYS49 158“ ! END 
1 10 XI=ASC(LEFT*(A*, 1 > ) :X2=ASC<RIGH 
T*(A$, 1 >> 

180 IF XI >57 THEN X 1 =X l -55 i GOTO 140 
130 XI =X1 -48 

140 IF X8 >57 THEN XE=X£-55:G0TQ 160 
150 X2=X8-48 

160 POKE 49 158+AD ,X 1 * 16+X8 : AD=AD+ 1 s 
GOTO 100 

800 DATA A3, 04, 85, 68, A3, A0, 35, 64 
810 DATA A3 ,08, 85, 66, A3 ,80 ,35, 61 
880 DATA 35 ,63 ,85 ,65 ,fì£ ,83 , AB ,00 
830 DATA 80,H3,C0,AE,01 ,A0,E8,80 
240 DATA 83, C0, 60, A3, 00, 31 ,65, B1 
£50 DATA 63 ,31 ,61 ,33 ,00 ,F5 ,E6 ,68 
860 DATA E6 , 64 ,£6 ,66 ) CA ,00 ,EC ,60 
=70 DATA -1 
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C000 

A3 

04 
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#$04 

* r 

ceae 

85 

6£ 


STA 

$62 

* j t 

C004 

A3 
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#$A0 

• t 

C00B 

85 

84 


STA 

$64 j 

* t 

C00S 

AB 

DB 


LDA 

«SD8 

• r 

C00A 

85 

SS 


STA 

$68 

a f 

C00C 

AB 

00 


LDA 

#$00 

■ t 

C00E 

85 

81 


STA 

$61 ; 

■ F 

C010 

85 

63 


STA 

$63 1 

• t 

C0I2 

85 

85 


STA 

$65 

• t 

C0 i 4 

A2 

03 


LDX 

#$03 

* t 

C0 1 6 

A0 

00 


LDY 

#$00 

* J r 

C019 

20 

23 

C0 

JSR 

«023 

* / 

C01B 

AE 

01 


LDK 

#$0 I 

» 9 

C01D 

A0 

E3 


LDY 

#$E8 

* ? 

C01F 

£0 

23 

C0 

JSR 

SC023 

• / 

C022 

60 



RTS 


* r 

C023 

AB 

00 


LDA 

#$00 ; 

m f 

C025 

91 

65 


STA 

<*65> ,Y 

* f 

C027 

B1 

83 


LDA 

<$63> ,Y 

■ f 

C029 

SI 

81 


STA 

(*61 > , Y 

* r 

C02B 

38 



DEY 


* r 

C02C 

D0 

F5 


BNE 

$C023 

a r 

CG8E 

ES 

82 


INC 

*62 

a 9 

C030 

E6 

64 


INC 

$04 

m r 

C032 

ES 

SS 


INC 

$66 ! 

* f 

C034 

CA 



DEX 


* t 

C035 

00 

EC 


BNE 

$C023 

* i r 

C03? 

se 



RTS 
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LINGUAGGIO MACCHINA <£) 

10 PRINT" COLE ARH DOWN ]) RASFERISCE 


SULLO SCHERMO DEL 1 
20 FRI NT 11 COMMODORE 64 LE ISTRUZIQN 



I BASIC ED" 

* F 

C000 

m 

00 

LDA 

Il $00 

30 

PRINT"! MESSAGGI DI CONTROLLO " 

■ r 

C002 

85 

5F 

STA 

$5F 

40 

PR INT "SFRUTTANDO LE ROUTI^S DE 

• f 

C004 

A3 

A0 

LO A 

#$A0 


LLA _T\” 

* * 

C00G 

35 

60 

STA 

$60 

50 

FRINTCHR*< 14) 

* r 

0603 

m 

E8 

LDA 

#$E8 

100 

READ A*5 IF VAL(A$M0 THEN PRINT 

* t 

cmt\ 

S5 

5A 

STA 

$5A 


" ERVS I SVS49 1 5£ " s END 

• r 

C00C 

ri 9 

A3 

LDA 

#$A3 

1 10 

XI =fiSC! LEFT$(A$, 1 > > : X£=ASC vft IGH 

* r 

C00E 

35 

5B 

STA 

$5B 


T$lA*, 1 > ) 

- t 

C010 

m 

E8 

LDA 

#$E8 

1£0 

IF XI >57 THEN X 1 =X 1 -55SGDTG 140 

» r 

C012 

85 

58 

STA 

$58 

130 

X1=XI -48 

* r 

C014 

m 

07 

LDB 

Il $07 

140 

IF X2 >57 THEN X£=X£-55SG0T0 1B0 

» r 

C016 

35 

58 

STA 

$59 

150 

X£=X2-40 

• r 

C018 

30 

BF 

A3 JSR 

$A3BF 

1&0 

PQKE 43 152+HD ,X 1 * 1 S+X2 • AD=AD+ 1 ■ 

* f 

C01B 

m 


BRK 



GOTO 100 


200 DATA A3, 00, 85, 5F, A3, A0, 35, 60 
£10 DATA A3 ,E3 ,85 ,5A , A3 , A3 ,35 ,5B 
£20 DATA A3, ES, 85, 58, A3, 07, 85, 59 
230 DATA 20, BF, A3, 60,-1 


LINGUAGGIO MACCHINA 


10 PR 1NT " C CLEAR I [DONNI-, RIPOSTA E PU 
LISCE LA PAGINA GRAFICA" 

£0 PRI NT "SFRUTTANDO L * INDIR IZZ AMEN 
TO INDICIZZATO" 

30 PRINT 3 INDIRETTO <IN 1>, QUINDI 
DISEGNA UNA" 

40 PRINT" SINUSOIDE! 4 DONNI* 

50 PR 1 NTCHR$( 14 ) 

100 READ A$:IF VAL<A*)<0 THEN PRINT 
" [RVSISVS43 152 !RUN1?0“ !END 
J 10 X 1=ASC<LEFT3kA*, 1 > ).SX2=ASC<RIGH 
T3NA*, 1 J ) 

t£0 IF XI . >5? THEN X 1 =X 1 -55 ! GOTO 140 
130 XI =X 1-48 

140 IF X2>57 THEN X2-X2 -55 ! GOTO 160 
150 X£=X£-48 

180 POKE 43152+hD,X 1 #16+X£1AD=AD+1 i 
GOTO 100 

170 FÙR X=0 TO 313 

130 V* I NT ( 100+30*5 IFKX/'S 1 > ) 

190 CH = 1NT <X/8 ) ! RO= INT l V/6 > 

200 LN-V AND 7 : B I -7~ (X Ai d 7) 



■ t 

0000 

AD 

18 

□0 

LDA 

$D01S 

* / 

0003 

09 

03 


ORA 

#$08 

» / 

C005 

8D 

18 

D0 

STA 

$0018 

* / 

0003 

AD 

11 

00 

LDA 

$0011 

* / 

0003 

09 

20 


ORA 

#$20 

■ r 

C80D 

8D 

11 

00 

STA 

$D01 1 

m t 

C010 

A3 

40 


LDA 

#$40 

* / 

C012 

85 

FD 


STA 

$FD 

* r 

0014 

A9 

20 


LDA 

#$20 

• r 

caie 

85 

FC 


STA 

$FC 

* t 

0018 

A9 

00 


LDA 

#$00 

* / 

00 1 A 

85 

FB 


STA 

$FB 

■ ; 

0010 

A8 



TAY 


* r 

C0 1 P 

80 

ÉE 

C0 

JSR 

$C0£E 

* r 

0020 

A9 

03 


LDA 

#$08 

* / 

0032 

SS 

FD 


STA 

$FD 

* r 

C024 

A3 

04 


LDA 

#$04 

* r 

C0£6 

85 

FC 


STA 

$FC 

* r 

caas 

A9 

03 


LDA 

#$03 

* r 

C0£A 

20 

2E 

co 

JSR 

$C82E 
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£10 Br=813£+RO*3£0+8*CH+LN 
££6 PQKE BY,PEEK (Br) DR <£tBI> 
£30 NEXT:POKE 10£4,16 
£40 GOTO £40 

300 DATA 00,18,00,09,08,80,18,00 
310 DATA AD, 1 1 ,D0,09,£0,8D, 11 ,00 
3£0 DATA A3, 40, 85, PO, A3, £0,85, PC 
330 DATA A9 ,00 ,85 ,FB ,A8 ,£0 ,2E ,C0 
340 DATA A3 , 08 ,85 ,P0 , A8 ,04 ,85 , PC 
350 DATA A9,03,£0,£E,C0 ,60,31 ,FB 
360 DATA 88,00 ,F8 ,E6,FC ,A6 ,FC,E4 
370 DAVA FD,O0,F3,80,-1 


• r 

caeo 

S0 


RTS 


R f 

C0EE 

Sì 

FB 

STA 

<$FB) , Y 

* r 

C030 

SS 


DEY 


t f 

C031 

D0 

FB 

BNE 

$C0EE 

* f 

C033 

E6 

FC 

INC 

$FC 

* f 

C035 

ab 

FC 

LDK 

$FC 

* f 

CB37 

E4 

FD 

CPK 

$FD 

• F 

C039 

□a 

F3 

BNE 

$C08E 

• r 

C03B 

S0 


RTS 



LINGUAGGIO MACCHINA r.4) 


10 PRINT" [CLEARJ! DOUM ISCRIVE SULLO 
SCHERMO 3 MESSAGGI" 

£0 PRINT "DIFFERENTI A SECONDA SI P 
REMA 1, £ 0 3” 

30 PRINT “E TERMINA CON 0 . - 
40 PRINT" SFRUTTA ENTRAMBE LE TECNI 
CHE DI" 


50 PRINT" INO IRE2 IOFE INDICIZZATA.! 

4 Donn- 
eo PRINTCHR$< 14 J 

100 READ A$ìJF VAL(A$K0 THEN PRINT 
’ CRVS 1SYS43 15£ " iEND 
1 10 X) =A6C(LEFT$CH$, 1 > > !X£=ASC <R IGH 
T$CA*, 1 > > 


1£0 IF XI >57 T HEN X 1 =X 1 ~55 : GOTO 140 
138 X 1 =X 1 -48 

140 IF X£ >57 THEN X£=K£-55 SGOTO 16B 
150 X£=X£--4B 


160 POkE 
GOTO 
800 DATA 
£10 DATA 

££B DATA 
£30 DATA 
£40 DATA 
£50 UATh 
£60 DATA 
£70 DATA 
£80 DATA 
£90 DATA 
300 DATA 


43 1 5£+AD ,X 1 * 1 S+X£ i AO=AD+ 1 : 
100 

A3, 13,85, FB, A3, 80,85, FC 
A3, 41 ,85,FD,A9 ,C0 ,85 ,FE 
H0 , 05 ,B 1 ,FD , 3 I ,FB ,88 , IO 
F9,£0,87,Eh,£0,3E,F 1 ,38 
E3 ,33 ,F0 , 1C ,30 ,F3 , C9 ,04 
B0,EF,0A,AA,A0,0D,A1 , 17 
£0,CA,F 1 ,F6, 17,88, 10, FG 
A3 ,80 ,£0,C-A,F 1 ,4C ,00,C0 
80,7D,E4,3B,E4,47,C0,4£ 
45,54,54 ,4F,4C,41 ,£0,53 
49 ,4D , 4F ,4E, 45,-1 








■_ 

* / 

C000 

A3 

19 


LDA 

#$19 

* f 

C002 

85 

FB 


STA 

$FB 

* T 

C0B4 

A3 

00 


LDA 

#$00 

• F 

C006 

85 

FC 


STA 

$FC 

* F 

C000 

A3 

4 I 


LDA 

#$41 

■ r 

C00A 

85 

FD 


STA 

$FD 

■ / 

C00C 

A3 

C0 


LDA 

asce 

* # 

C00E 

85 

FE 


STA 

$FE 

■ F 

C0 10 

A0 

05 


LDY 

#$05 

* F 

C01E 

B 1 

FD 


LDA 

<$FD> ,Y 

* W 

C014 

Sì 

FB 


STA 

<$FB) ,Y 

* F 

C010 

83 



DEY 


* F 

CB 17 

10 

F9 


BPL 

*C01£ 

* r 

C0 1 9 

a© 

87 

E A 

JSR 

$EA87 

* r 

C01C 

£0 

3E 

FI 

JSR 

SF13E 

» f 

C01F 

38 



SEC 


’ F 

C923 

E9 

30 


SBC 

8 $30 

* / 

C08E 

F0 

1C 


BEO 

$C040 

* F 

C0£4 

30 

F3 


BMl 

*C0 I 3 1 

* F 

C0E6 

C9 

04 


CNP 

#$04 

■ r 

C0E8 

B0 

EF 


BCS 

$0019 

* F 

C0EA 

0A 



ASL 


• F 

C0HB 

AA 



TAK 


* F 

C0£C 

m 

0 D 


LDY 

#*0D 

* F 

C0EE 

Al 

1? 


LDA 

<$17, X) 

* F 

C830 

£0 

CA 

FI 

JSR 

$F ICA 

» f 

C033 

FG 

17 


INC 

*17, X 

* F 

C035 

88 



DEY 


* F 

C03S 

10 

FB 


BPL 

$C02E 

* F 

C038 

A 9 

SD 


LDA 

#$SD 

* r 

C03A 

80 

CA 

FI 

JSR 

$F 1 CA ! 

• F 

C03D 

4C 

00 

C0 

JMP 

*C00B 

■ r 

C040 

00 



BRK 
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COMMODORE 64 

Raster Register 
Esperimenti 



Il raster register. Ovvero: come l'impos- 
sibile diventa possibile con un COMMO- 
DORE 64. 

Il 64 consente una gestione dei video 
molto completa e potente, normalmente 
non disponibile su macchine della sua fa- 
scia di prezzo. Sfruttare però a fondo le 
capacità di questo computer richiede uno 
studio approfondito della sua struttura. 

Obbligatorie quindi sono le procedure in 
linguaggio macchina, le lunghe letture di 
manuali e tabelle, le prove e riprove effet- 
tuate per vedere come la macchina reagi- 
sca in certe situazioni. 

L’argomento trattato in questo articolo 
(ed in altri che seguiranno) richiede quindi 
una certa conoscenza del linguaggio as- 
sembla anche se può essere inteso come un 
“propedeutico 1 ’ invito per i meno esperti 
(purché sufficientemente volenterosi). 

P robahilmente avrete tutti già lètto l'ar- 
tìcolo sugli interrupt pubblicato su C.C.C. 
n. 13: nomi aim ente il computer interrom- 


pe l'esecuzione del programma principale 
circa una volta ogni sessantesimo di se- 
condo, ovvero tutte le volte che si verifica 
un “underflow" del TIMER A che si trova 
in uno dei dispositivi dì INPUT/OUTPUT 
del C64 (il dispositivo in questione è il 
CIA I, e per maggiori e migliori chiari- 
menti consultate la guida del Programma- 
tore Commodore), consentendo la scan- 
sione della tastiera, mezzo tramite ti quale 
voi siete soliti dialogare col computer. 
Dovete però sapere che le sorgenti di inter- 
ruzione sul 64 sono molte di più. Vale a 
dire, è possibile verificare situazioni “spe- 
ciali" e trattarle come tali con appropriate 
procedure. 

Net nostro caso ci interessano solo le 
interruzioni del TIMER À e del circuito 
video. 


Organizzazione del circuito video 

Il circuito integrato VIC, che presiede le 
operazioni di uscita sullo schermo dei 64, è 
molto versatile c potente, consentendo sva- 
riati tipi di visualizzazioni- Si alloca nella 
zona di memoria che va da 53248 (esa 
D 000) fino a 53294 (esa D02E). 

Suo tramite è possibile controllare fino ad 
8 SPRITES, cambiare set dì caratteri, 
passare in alta risoluzione eccetera. 

Ebbene, grazie ad alcuni registri del 
VIC, è possibile far cose che normalmente 
sarebbero considerate impossìbili (per fare 
un esempio, tenere visualizzati sullo scher- 
mo due set di caratteri contemporanea- 
mente, oppure cambiare il colore di sfondo 
a metà schermo, oppure visualizzare più di 
otto SPR1TES contemporaneamente). 
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FIG 2 


Le linee ira ue reità rappresenlann le linee di immagine Instaci dal tannanr 
dtllronko. fumé ‘ipìi^aiu nell' ari k\ 4 v al termine di njjni linea il cannone 
i iene spento r r i posi lionato al murpiiK 1 di' Ha linea seguente. 


RASTKK 


LINEE [>l SCHERMO 



■/CIO 

%Z È 


□ = 


Bordo farei* invisibile dello schermo) 

Sche nino i area dnve \ engtinu ‘vImjjJì iialt caratteri i 


pie. a 


VB, Se il rasler si irosa ira Li linea 0 e la lìnea Si o fra la linea 251 e la lìnea 
312. il t arnione elèi ironico il» componendo Cimroa^n* dell’atta inviabile di 
schermo \ bordo superiore o inferiore l. 


ziale" dell' ìm magi ne formala stillo scher- 
mo (figure ì , 2 e 3). Infatti ]' immagine die 
vedete visualizzata su un video viene for- 
mata da un “cannone” di elettroni, il qua- 
le, cominciando dal margine in alto a sini- 
stra e procedendo verso destra, traccia una 
linea dell'Immagine (gli elettroni sparati 
dal cannone fanno illuminare i fosfori che 
suno distribuiti uniformemente sullo setter- 
ino). 

Arrivato al margine destro, il cannone 
viene spento, e riposizionato a sinistra, ma 
una linea più in basso (la cosa a dire il vero 
non è proprio cosi, ma al fine di evitare 
inutili complicazioni evito una precisazio- 
ne non necessaria per lo sviluppo di pro- 
grammi utilizzanti k peculiarità del 64). 
Questa processo viene ripetuto, su un tele- 
visore PAL, 312 volte ogni cinquantesimo 
dì secondo. Quando il cannone elettronico 
raggiunge il margine in basso a destra (la 
31 2, ma linea), viene spento e riposizionato 
inailo a sinistra, ed il ciclo viene ripetuto. 

-fcj possibile sapere in un qualsiasi mo- 
mento sii che Lìnea sii trovi il cannone con- 
sultando dite registri dd VIC: 

il V+I8 (53266, esa D0Ì2) che ritorna 
gli otto bit più bassi, ed il bit sette della 
locazione V+ 1 7 (dee 53265, esa D01 1 ) che 
ritorna il bit più significativo. 

Infatti, il cannone sì muove su 312 linee, 
e non è possibile rintracciare la sua posi- 
zione con ulta soia locazione di memoria 
(saprete che i numeri rappresentabili con 
un BYTE vanno da 0 a 255). 

Quando il BIT sette della locazione 
53265 (V f 17) è attivato, vuoi dire che il 
cannone ha superato la 255ma posizione e 
che gliene mancano ancora -circa 56 per 
finire la composizione dell’immagine (fi- 
gura 4). 


Un pò di pratica 

■ i. 

Provale un pò a digitare: 

V=5324&:POKE V+1&,N:PRIM PEEK 
(V+18) 

quasi sicuramente U valore che verrà 
stampato sarà diverso da quello che aveva- 
te scritto nella locazione (e questo per un 
qualsiasi N compreso tra 0 e 255). 


t osa sarà successo?: il computer ha 
ignorato quella istruzione e non ha esegui- 
to la scrittura, oppure r istruzione è stata 
eseguita irta non ha minimamente influen- 
zato la locazione V+ IS? 

lì valore che e stato introdotto nella lo- 
cazione è stato effettivamente salvato, ma 
non è più visibile all'utente perché il regi- 
stro in questione, in lettura, riporta sempre 
fattuale posizione dei cannone elettronico 
suJlo schermo. Non appena si scrive un 
numero nel registro, il valore immesso vie- 
ne conservato in un registro di compara- 
zione. 


Se sono state fatte altre procedure (che 
vedremo Ira poco), non appena la posizio- 
ne dei cannone elettronico raggiunge quel- 
la precedentemente registrata, viene effet- 
tuata una interruzione maschera bile. Que- 
sto chiaramente permette all'utente di po- 
ter trattare lo schermo secondo le sue 
necessità, è di apportargli dei cambiamenti 
al posto giusto e nel momento voluto. 

Maschere e ìnterrupt 

Prima sì diceva che solo dopo ben preci- 
se procedure è possibile far generare una 
interruzione al circuito video al momento 
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FIG 4 


Struttura dvì rasttr l'L-nister 

Oqc 532*5 + bit pi t: emfkjnvo di ?J2*5) 


opportuni). Per far ciò è sufficiente sellare 
un registro, la cosiddetta maschera di in- 
terrii/: ione t che dice al VIC che da quel 
momento in poi gli interrupt di video sono 
abilitati, 

L'organizzazione del registro (il 53274, 
vale a dire V+26osa D01A) è la seguente: 

BIT 0: se è uguale ad 1 allora vengono 
abilitate le interruzioni di raster (vale a 
dire: tutte le volte che la posizione del can- 
none elettronico è uguale a quella in pre- 
cedenza registrata, viene generata una in- 
terruzione) 

BIT I : se è uguale ad Multe le volte che 
uno SPRITE collìde con lo sfondo t viene 
generata una interruzione 

BIT 2: se è uguale ad 1, tutte le volte che 
uno SPRITE collide con uno SPRITE vie* 
uè generala una interruzione 

BIT 3: può essere sfruttato solo se è 
connessa una light pen. 

BIT 4, 5, 6: non usati ” 

BIT 7: bit di abilitazione. Dì qualsiasi 
interruzione voi abbiate bisogno, ricorda- 
tevi SEMPRE ed in ogni caso di settare 
anche questo bit, che è appunto quello che 
abilita gli interrupt, di qualsiasi genere es- 
si siano. 


Così, se avete bisogno delle interruzioni 
del rasler, dovete scrivere 129 nel registro 
abilitalo^ <es: POKE V+26,129), 

L'altro registro in questione è il 53273 
(V +25 esa D019) che indica, al momento 
del l'interruzione, se questa è stata effetti- 
vamente del circuito video o se invece è 
stata originata da un altro dispositivo < i F 
CIA, ad esempio, e riconsiglio di leggere il 
manuale dei programmatore a proposito 
del CIA). 

L'organizzazione del registro 53273 è 
uguale a quella del precedentemente spie- 
gato 53274, nel senso che: 

BIT 0: se è a 1, vuol dire che il cannone 
elettronico ha raggiunto la posizione regi* 
strafa precedentemente. 

BIT 1 : se è a 1, vuol dire che si è verifi- 
cata ima collisione tra SPRITE e sfondo 
BIT 2: se è a I, vuol dire che si è verifi- 
cata una collisione SPRITE SPRU’E 
BIT 3: sfruttabile sempre e solo se una 
lighl pen è connessa% 

BIT 4, 5, 6: non usati 
BIT 7: a I tutte le volte che si verifica 
una interruzione di video. 

Forse sarà meglio chiarire Tutilizzo di 
questo registro con un esempio diretto, an- 


che perché è necessario compiere alcune 
operazioni addizionali durante e dopo la 
lettura della locazione 53273 (V+25)> 


Il prima passo: le abilìta/ioni 

Supponiamo di aver già scritto una ap* 
propriata routine di raster, di averla allo- 
cata (sempre per esempio) da 49152 
(COOtì) in su. 

Per attivarla bisogna anche modificare 
altri registri (i soliti vettori di interruzione, 
cioè 788 e 789, esa 314 315; i registri del 
raster, cioè 53266 e bit più significativo di 
53265, esa D0I2 e D01L II registro di abi- 
litazione del raster, 53274, esa DOIA). 

Q uesto semplice programma in BASIC 
esegue tutte Le operazioni iniziali. 

10 POKE56333J 27: REM DISABILITA 
GLI INTERRUPT 

20 PO K E 788 ,G:PO K E789, 1 92: R EM CAM- 
BIA IL VETTORE DI INTERRUZIONE 
30 POKE53265, PEEK (53265) AND127: 
REM AZZERA IL BIT PIU' SIGNIFI- 
CATIVO DEL RASTER 
4tìPOKE53266,51:REM SETTA IL* PRI- 
MO INTERRUPT ALLA 5Lma LINEA 
DI SCHERMO 

5 OPO KE56 333 , 1 29 : RE M RIABILITA LE 
INTERRUZIONI 

60POKE53274,! 29; REM ABILITA GLI 
INTERRUPT DEL RASTER 
La linea 29 cambia i valori del vettore di 
interrupt spostandolo sulla nostra routine. 

Le linee 39 e 40 predispongono la prima 
interruzione alla 51. ma linea di schermo (il 
bit più significativo del Faster viene azze- 

9 

rato). 

Ad ogni modo, ricordatevi in una proce- 
dura dr ini zi a lizza/ ione di sellare SEM- 
PRE entrambi i registri (53266 e bit più 
significativo di 53265), Inoltre, come ve- 
dremo più avanti, tutte le volte che il raster 
raggiunge la posizione prestabilita e fa 
scoti are l' interruzione, deve essere settato 
sulla interruzione successiva (se avete bi- 
sogno di più di un interrupt di video); que- 
sta operazione deve essere fatta dalle rou- 
tìnes che gestiscono V interruzione. 

La linea 66 abilita le interruzioni del ra- 
ster ponendo a 1 il hit 0 ed il bit 7 di 53274. 
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C ome sì scrivano le routine di ra- 
ster 

Avrete ormai tufti capii» che il raster 
registcr si gestisce principalmente con 
procedure in ìntcrrupt; procedure non mol- 
lo diverse da quelle che avete già visto opc- 
rare o che avete già scritto. 

Considerate il semplice programma pub- 
blicato che cambia il colore dello sfondo 
circa ad un terrò dello schermo video. 

^fotcrete che la prima istruzione carica 
nell’ accumulatore il contenuto della loca- 
zione 53273* Se avete letto bene la prima 
parte dell'articolo, saprete che questa lo- 
cazione contiene i flag delle interruzioni 
del circuito video. Il fatto che sia la prima 
ad essere “controllala" dopoché il proces- 
sore ha avviato la procedura di interruzio- 
ne è di fondamentale Importanza* Diceva- 
mo prima che le sorgenti di interruzione 
sul 64 sono parrocchie» anche se normal- 
mente lavorano solo quelle del TIMER A* 
die permettono la scansione della tastiera. 

Essendo quindi necessario sapere quale 
dispositivo abbia fallo scattare l’ ìntcrrupt, 
bisogna verificare, quando entrano in gio- 
co le interruzioni del raster, se il bit meno 
significativo della locazione 53273 è ugua- 
le d uno. 

Se questa condizione è vera significa che 
E' Ìntcrrupt è scattalo a causa del circuito 
video. Altrimenti bisogna far eseguire al 


computer la normale procedura di interru- 
zione» che è la scansione della tastiera; la 
qual cosa può dare dei problemi quando si 
lavora con il rasler. 

GH ìntcrrupt che fanno scandire la ta- 
stiera possono infatti (ululila sovrapporsi 
a quelli de] rastcT, e viceversa provocando 
sfarfallamenti del video; è dunque preferi- 
bile in questi frangenti o disabilitare le in- 
terruzioni del TIMER A, oppure lar scan- 
dire la tastiera all'interno di una interru- 
zione video* 

]^on è finita. Avrete lutti notato che* se 
f interrii zittite e sfata effettivamente di ra- 
ster, ovvero i’AND logico del contenuto 
della 53273 con 1 è stato soddisfatto, que- 
st'ultimo (il risaltato delfÀND) viene sca- 
ricato dì nuovo nella 53273» È di fonda- 
mentale importanza che la cosa venga fat- 
ta, poiché il flag di interruzione (che è ap- 
punto il 53273) deve essere resultato 
sempre dopo una interruzione del circuito 
video; bisogna cioè azzerare il bit più si- 
gnificativo. 

Nella linea 50 risiede appunto la fonda- 
mentale operazione di cui si parlava pri- 
ma. Si contenuto de IP accumulato re infatti* 
se il programma è arrivato sin qui, è 1. N 
fatto che venga “starato" in 53273 (esa 
D019) ha l'effetto di azzerarne il bit più 
significativo, la qual cosa rosetta il regi- 
stro e non ostacola V interruzione di video 
seguente. 


Nella linea 60 viene caricato in accumula- 
tore il valore attuale del raster. Se que- 
st'ultimo è minore di 1 2£ (cioè è positivo in 
complemento a due), viene eseguita la 
prima delle due procedure (quella dalla 
lìnea 100 fino alla 200). Per maggiori 
chiarimenti leggette la routine disassem- 
blala. 

Gli scrolline con il raster regitfer 

Forse non tutti sanno che il Commodore 
64 permette di scrollare la pagina di testo 
(notare bene» la pagina dì testo, non di alta 
risoluzione) un Pixel per una volta» sia in 
senso orizzontale che in senso verticale, 

Sto parlando del cosìdetto scrolìing ral- 
lentato che sì ottiene “smanettando'" i tre 
bit meno significativi della locazione 53270 
(V+22, esa $D01é) per variare la posizio- 
ne x dello schermo ed i tre bit meno signi- 
ficativi dì 53265 <v+17, esa SODI!) per 
variare la posizione y dello schermo. Que- 
sta opzione c molto comoda per ottenere 
effetti di animazione, o di scorrimento di 
messaggi. 

Ha una limitazione (in condizioni nor- 
mali): non può far scrollare parli dei video, 
ma il video intero. Ed ecco che il nostro 
super raster vi viene io aiuto. Infatti è pos- 
sibile organizzare scrollate Pixel a Pixel 
delta pagina di lesto indipendenti le ime 
dalle altre, ottenendogli effetti spettacola- 
ri che affollano i giochìni sul 64. 



LE IMMAGINI DI QUESTO FASCICOLO 


F 4. Lj macchina caicctutr.ce cft Lerbntz, elaborata 
net 1$?1, perfeziona il meccanismo detta Pascafina tf 
pfebrema dell# mottipticeziont e dette sottrazioni venne 
risolto con rt PC Siile gffdiz/Otìr e Sottrazioni 
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Il principio di funzionamento di queste 
routine è in parte simile a quello visto pri- 
ma per dividere lo sfondo. 

Xje regole fondamentali di cui bisogna 
tener conio sono le seguenti: 

• sapere esattamente in quante parli biso- 
gna dividere lo schermo* e calcolare tutte 
le linee del raster, vale a dire tutte le posi- 
zioni in cui il rasier deve far scattare Hn- 
terrupt. 

* rispetto alle decisioni fatte nel primo 
punto* locazioni che conservino i valori 
dello schermo a seconda delle posi/ioni che 
il raster register raggiunge. 

Ad esempio: supponiamo dì voler divìde- 
re lo schermo in due partì, di avere già 
scritto la nostra routine e dì avere utilizza- 
to la Locazione decimale 251 per conserva- 
re la posizione x delta prima parte dì 

schermo* e la locazione 252 per conserv are 
la posizione x della seconda parte di 
schermo. Di volta in volta la nostra routi- 
ne* a seconda che il raster abbia fatto scat- 
tare l'interruzione nella prima o nella se- 
conda parte del video, scriverà nei tre bit 
bassi di 53270 (V+22) il valore contenuto 
in 251 o252. L’effetto dì animazione risie- 
de in un cambiamento dei valore contenuto 
nelle due suddette locazioni* che funziona- 
no un pd come delle variabili in BASIC 
(cambiamento che in questi casi di solito 
viene effettuato in inlcrrupt* vedremo co- 
me). 

• tenere conto delle imprecisioni del MA- 
STER. Noterete talvolta che tra due aree 
di schermo Luna ìndipendente dall'altra i 
movimenti risultano irregolari. Questo 
perché la linea puntata dal raster in queste 
posizioni compone l'immagine della parte 
superiore e della parte inferiore, cosicché i 
caratteri visualizzati in quei punti sono 
imperfetti* L’inconveniente si elimina fà- 
cilmente* se si fa in modo che i caratteri 
visualizzati in queste posizioni abbiano ri- 
spettivamente parte bassa e parte alta 
uguali- 

Bisognerà inoltre, in caso dì scrolline 
complessi* tenere conto di quando ogni 
parte dello schermo raggiunge la massima 
posizione ammissibile con lo scroti rallen- 
tato. Utilizzando infatti tre bit per ottene- 


carica in acculo latore 
j fa l 'and con 1 

• se il confronto e' soci di sfatto 


i l contenuto di 53273 

alla routine 


j altrimenti salta alla scansione delta tastiera 
; -azzera il fla9 di interruzione del video 
Scarica in accumulatore l'attuale valore del 

se e' ha99iore di 127 allora salta alla linea 30© 
^carica in aceti nu l ator* il numero 128 

lo scrive nel ras ter re9ister<per settari 


19 LIiR SIJ0I9 ; 

20 RND ttii 
30 BNE CO 50 
di ras ter 
40 J1 1F i^ASl 
50 STA SD019 
m LBA $IIQ12 

cf pfi 

70 BUI GO3©0 

1@0 LDA #^30 

ii0 str nmz 

l ' i pi te rruf> t s e9u en te ) 

129 LfiR $FC scarica in accumulatore il contenuto della 

locazione 252 

130 STA ÌB621 .lo stora in 5328 l (settta lo sfondo) 

1 4® JMP $ER 31 ; use i t a dall ' i mie r ru z x o ne < s ams i o ne de l 1 a tasti or 

set 5 J i nt e ì r u. z i o ne d i v ideo) 

280 N0F 1 
210 NOF 
300 LDA #f20 
310 STA ÌD012 
schermo 
320 LDfi #FD 

locazione 253) 

330 STA tmZX 
340 JMP fFEEC 


scarica in accumulatore il numero 32 
dispone il Prossimo interruPt alla 32 linea di 

* carie?, in accumulatore il contenuto -della 


lo stora i n 


5328 1 


i set ta lo sf o nd o > 


/esce da 1 1 ' i nter r u P t 


100 

1 10 

1£0 

130 

140 

150 

160 

170 

180 

190 

£00 

£10 

££0 

830 

£40 

£50 

£60 

£70 


REM *** STUDIO DEL RASTER REGI 
STER *** 

REM *** MODIFICA DEL COLORE 
DEL *** 

REM *** FONDO DELLO SCHERM 

0 *** 

REM *** 

*** 

REM *** ENRICO SCELSA 

**# 

REM 

DATA 173, £5, £08, 41 ,1 ,£08,3,76 , 

49,234 

DATA 141 ,£5,208, 173, 18,808,48,15, 165 
DATA £5£, 141 ,33,£08,163,1£8, 141 , 13,208 
DATA 76, 48, £34, 234, £34, 185,253 , 141 ,33, £08 

DATA 163,2,141, 18 ,£08 , 76 , Ì88 ,£ 54 ,0 
POR X =43 152 TO 49 138; READ A: POKE X,AsNEXT 
INPUT “COLORE PARTE 1")A:IF A<0 OR A>255 
THEN £20 

INPUT "COLORE PARTE 8“;E!lF B<0 OR B>255 
THEN 230 

POKE £52 , A : PQKE £53, B 

POKE 56333, 1 £7: POKE 738 ,0: POKE 739 , 192 : POKE 
53274, 129 

POKE 53265 ,PEEK (53265) AND 127:POKE 53266,40 
E1C 
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gnerà eseguire uno scroll di un carattere 
verso sinistra dell'area video in questione). 


Esaminiamo la routine 


Questo è il momento di vedere diretta- 
mente come funzione una routine dei ra- 
ster che esegue gli scroll. 


10 LDA $D019 J CARICA IL FLAO l'I IHTERRUPT <DEC 53273? 

20 AND #$1 ; CONTROLLA SE E DI RASTER 

30 BNE 0050 ISI VAI A CINQUANTA 

40 JMP $EA31 INO VAI ALLA SCANSIONE DI TASTIERA 

5© STA $D019 RESETTA IL FLAG DI INTERRUZIONE 

60 LDA $D012 ; CARICA LA POSIZIONE DEL RASTER (DEC 53266? 

80 CNF #$51 ,;LA COMPARA CON 31 DECIMALE 

90 BCS 00200 ;SE E' MAGGIORE 0 UGUALE VAI ALLA LINEA 200 

190 LDF $D016 ; CARICA IL CONTENUTO DI 53270 

110 AND #$F8 ; AZZERA LA POSIZIONE X DELLO SCHERMO 

120 ORA $FC ; SCRIVE QUELLA DELLA PARTE CHE IL RASTER STA' TRACCIANDO 

130 STA $D@16 ILA STORA IN 53270 

140 LDA #$51 ; CARICA IL PROSSIMO IHTERRUPT DI RASTER 

150 STA $D012 ILO PREDISPONE 

160 JMP $ER31 i SCANDISCE LA TASTIERA 

170 HOP ;*#**SECONDA PARTE 

180 NOP ;**#* DI 

190 NOP ; *###SCHERMO 

200 CMP #$71 i COMPARA CON 113 DECIMALE 

210 ECS 00500 1SE E' MAGGIORE 0 UGUALE VAI A 500 

229 LDA $D016 ; CARICA IL CAONTENUTO DI 53270 

230 AND #$F8 ; AZZERA I TRE BIT MENO SIGNIFICATIVI <LR X DELLO SCHERMO? 

240 ORA $FD ; SETTA LA NUOVA X DELLO SCHERMO 

250 STA $D016 i LA STORA IN 53270 

260 LDR #$71 /PROSSIMO INTERRUPT ALLA 

270 STA $D012 > 113. MA LINEA DELLO SCHERMO 

280 JMP SFEBC /ESCE DALL 'INTERRUPT 

290 NOP ;**##TERZR PARTE 

300 NOP ;#*** DI 

310 NOP i **##SCHERMO 

500 LDA #$30 I PROSE IMH INTERRUZIONE DI VIDEO 
510 STA SD012 > ALLA 48. MA LINEA 

520 LDA #$F8 i AZZERA LA POSIZIONE X DELLO SCHERMO 
530 AND $D016 J 
540 STA $D016 ; 

550 JSR 002000; SUBROUTINE DI' SCROLLINO DELLA PRIMA PARTE DI SCHERMO 
560 JSR GO3000J SUBROUTINE DI SCROLLINO DELLA SECONDA PARTE DI SCHERMO 
370 JMP #FEBC JESCE DRLL ' I NTERRIJPT 
580 NOP ; 

590 NOP ; 

600 NOP ; 

2000 INC #FC ; SPOSTA A DESTRA LA PRIMA PARTE DI SCHERMO 

2007 LDR 252 
2010 CMP #8 ; 

2020 BCCGO2060 INO ESCE 

2030 LDA #0 J ALTRI MENTI RIPRISTINA I VALORI NORMALI 
2040 STA $FC ; 

2050 JMP 008060 ;E SCROLLA DI UN CARATTERE 
2060 RTS ; 

2070 NOP ; sMf#*#**SECOHDA PARTE 

2080 NOP j ******* DI 

2090 NOP i *##****SCHERMO 


re lo spostamento» vale a dire un numero 
da 0 a 7, non appena il registro in questio- 
ne conterrà 8 nel caso che si scroti a de- 
stra (lo schermo sì sposta gradatamente 
verso destra al crescere del contenuto dei 
tre bit bassi della locatone 53270) dovrà 
essere ricaricato col valore 0 (la posizione 
più a sinistra raggiungiti ite col solo scrol- 


li ng di un pixel per volta) e si dovrà esegui- 
re lo serolling verso destra di un carattere* 
Viceversa, nel caso dello scrolline a sini- 
stra» non appena il contenuto del suddetto 
registro» decrementato* passa da 0 a 255» 
dovrà essere riscritto coi valore 7 (che è la 
posizione più a destra ammissibile con il 
solo scrolline di un pixel alla volta) e biso- 
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3000 

DEC 

$FD ; 

SPOSTA A SINISTRA LA SECONDA PARTE DI SCHERMO 

3020 

BPL 

G 03060 i 

NON SUPERA IL LIMI TERNO ESCE 

3030 

LDA 

#7 ; 

ALTRIMENTI RIMETTE LO SCHERMO A DESTRA 

3040 

STB 

5R) ; 


3050 

jmp 

003000 ; 

E SCROLLR DI UN CRRRTTERE 

3060 

RTS 


4 

> 

3070 

NOP 


+ 

# 

3030 

NOP 


* 

J 

3090 

NOP 


> 

8000 

LD* 

#*3F 

1 SCROLLA LA PR1MR PARTE DI SCHERMO 

3010 

LDR 

$03FF;X 

f 

8020 

STB 

$8400 ;X 

h 

t 

; 8030 

PEX 


P 

/ 

3040 

BNE 

008010 

; 

3042 

NOP 


l QUESTA SUE PASSA TRAMITE L ' AC CU M ULAT ORE 

8050 

JSR 

009200 

;IL CODICE DI SCHERMO DEL PROSSIMO CARATTERE DA VISUALIZZARE 

3060 

STA 

$0490 

;qui il codice viene visualizzato 

8070 

STH 

$0428 

/ 

0080 

STH 

$8450 

p 

> 

8090 

STB 

$0478 

f 

8100 

RTS 


;ESCE 

8110 

HOP 



8120 

HOP 



8130 

NOP 



9000 

Utx 

m 

, * 

9005 

LDV «TAO 

j scrolla la seconda parte di schermo 

9010 

LDA 

f04fìl;K 

■ 

9020 

STA 

$04R0;X 

f 

9030 

INK 


ri 

J 

9035 

DEV 


t 

9040 

BNE 

009010 

ri' 

9042 

NOP 


; QUESTA SUE PASSA I CODICI DI SCHERMO 

9050 

JSR 

GG9360 

,;IiEI CARATTERI DA VISUALIZZARE 

1 9060 

STB 

*04C? 

;QUI VENGONO VISUALIZZATI 

9070 

STB 

S04EF 

J 

9880 

STB 

$0517 

u ' 

t 

9090 

STB 

$053F 

f 

9100 

RTS 


* 

91 10 

HOP 



912» 

HOP 



9130 

NOP 



9200 

LDV 

$F7 

; INDICE DEL CARATTERE DA PRELEVARE 

9210 

LBB 

$8000 - V 

;L0 PRELEVA 

9220 

DEC 

$F? 

; DECRE MENTA L'INDICE 

3230 

ENE 

003260 

; SE NON HA TERMINATO ESCE 

9240 

LEV 

$F3 

; ALTRIMENTI RIPRISTINA 

9258 

STV 

$F7 

; L'INDICE 

926» 

RTS 



9278 

NOP 


; fcfcffcQURDRO 

3238 

NOP 


; «WDUE 

3290 

NOP 


r 

9300 

LDV 

$F8 

: INDICE CARATTER DA PRELEVARE 

9310 

LBR 

$800O ; v 

; LO PRELEVA 

3320 

INC 

$F8 

; INCREMENTA L'INDICE 

3325 

CPV 

$F9 

;E VEDE SE HA TERMINATO DI PRELEVARE CARATTERI 

9336 

ECC 

003360 

; NO ESCE 

9340 

LEV 

#$1 

; ALTRI MENTI RIPRISTINA 

9350 

STV 

248 

; L'INDICE 

9360 

RTS 



9993 

END 


* 
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ESPERIMENTI COL RAS TER RESISTER C£> 

103 REM STUDIO DEL RASTER REGI 

STER: 

ì 10 rem SCROLL DI STRINGHE IN SENS 
□ INVERSO 

1£0 REM ENRICO SCELGA 

130 REM 

140 DATA I 73 ,35,203,41 , 1 ,£08,3,76 , 

4 3 r £ 34 

150 DATA 141 ,25, £08,173,13, £08, £01 
,31,176 

160 DATA £1 , 173, ££,£03,41 ,£48,5,25 
£,141 ,££ 

170 DATA £38, 163,31 , 141 , 18, £08, 76, 
43, £34 

1S0 DATA £34, £34 ,£34, £01 ,1 13, 176, £ 

1 , 173, ££ 

130 DATA £08,41 ,£43, 5, £53, 141 ,££,£ 
08,183,113 

£00 DATA 14 1 , 13 ,£03 ,76 , 188 ,£54 ,£34 
,£34 

£10 DATA £34, 163,48, 141 , 13, £08, 163 
,£43, 45, ££,£08 

££0 DATA 14 1 ,££ ,£0S ,3£ ,3 1 , 196, 3£, 1 
10,136 

£30 DATA 76, 188, £54 ,£34, £34, £34, £3 
0,£5E, 165 ,£5£ 

£40 DATA £01 ,S, 144 , 7, 169,0, 133 ,£5£ 
,3£,1£5 

£50 DATA 136 ,36 ,£34 ,£34 ,£34 , 198 , £5 
3,16,7 

£60 DATA 163,7, 133,£53,3£, 156, 136, 
96, £34 

270 DATA £34 ,£34 , 1S£ , 159, 133 ,£55,3 
,157,0 ,4 

230 DATA £0£,£08,£47,£34,3£, 130, 13 


6, 14 1 ,0 

£30 DATA 4,141,40,4,141,80,4,141,1 
£0,4 

300 DATA 36, £34, £34, £34, 16£, 0,160, 
160,133 

310 DATA 161 ,4,157, 160,4, £3£, 136, £ 
08 ,£46, £34 

3£0 DATA 3£, £07, 198, 141 , 133,4, 141 , 
£33,4 

330 DATA 141 ,£3,5, 141 ,63 ,5, 96, £34 , 
£34 ,£34 

340 DATA 164, £47, 185,0, 1£S, 138,247 
, £03 ,4 

350 DATA 164, £49, I3£, £47, 36, £34, £3 
4, £34, 164, £43 

360 DATA 185,0, 128, £30, £43, 136, £43 
370 DATA 144,4 , 160, 1 , 13£,248, 36,0, 
380 REM 

330 FQR X=50 176 TO 50339:REAO A:POK 
E X,A!NEXT 
400 FRI NT" ICLEAR3 " 

410 PRINT” [5 O0l»JN 1 1 3 RIGHT] INTRODU 
RRE LA STRIDA DA SCROLLARE" 

4£0 INPUT At 

430 PRINT" ICLEAR3 ") Ai: POKE £49, LEM 
( Ai J + 1 : FQKE £48,1:P0KE £47,1: 
440 FOR X= 1 TO LEN\ Ai) + 1 tPOKE 3£768 
+X,PEEK< 10£3+X) :NEXT:PRINT" [CLE 
ARI" 

450 POKE 56333, 1£7:P0KE 788,0 iPOKE 
783,196 

460 POKE 53£?4, 1 £3: FQKE 53265, FEEKa 
53265 ) ANO 1 £7 iPOKE 53866,40 
470 POKE 53281,0 
430 PRINT" £1 5 D0WN1" 

490 GOTO 430 
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Fig 5 £cco le prima sedarla pwfarifirè Venne creata 
nel 1 804 del /incese Joseph Marie Jacquard per con - 
trottare ti muv/msrt» dei toiai da lessfliyfe Atfraverso t 
tori, degli uncini- scendono ad afferrare * fili dei tessuto 



NEW SOFT 


S.R.L 


A apiari pv> (Jurrtpules 

Via Carbone, 8 -Teli 01 87/67409 7 
19033 Castelnuovo Magra (SP) 


Mastri per stampante 


Prezzo 


Commodore MP3 

aot . 

15.400 

Commodore MPS 
Taily 80 

802, 


Commodore 8024 ... 




Epson MX7Q.eaS2,S3 1 ERC>Q4 1 

pxeo, RXeo, fxso, 

Commodore 4022, 

S022, IBM P/C, Sharp 

CE332P, MZ 80P5A, PC32Q1 0.200 


Commodore 3022, 3023, 

Epson TXS0, Itoh 830QR, 

OK! SO, 8 2 A, 03 A, 92, 93, 

Sharp P3 

... 3.000 

Epson MX100 


Commodore 8023P, MPP 1361 

Sharp 80P4A, Centronics 1 50— 0.950 

Commodore 8026, 

8027 1 8032 

... 6,950 

Dischetti DF/SD i! 10 

(con box trasparente) 

30.000 

Dischetti DF/DD a 10 
i eoo bo x t f-ÉfcÉ ps re rito) 

43,000 

Disco por pulizia delle testine. 
Questo puO essere usato per 
drive con una o due facce. 

Il liquido basta per circa 

15 applicazioni 

12,200 




Usate ì a seconda faccia del 
V/S Mini disco. Tagliate a metà. il costo dei 
Dischetti' Foratore di Dischetti per usare 
anche l'altra faccia del disco. 

Per esempio Commodore 20/64, 

Apple 4. Alari, eco. a solo ... 1 2.700 

Tutti 1 prezzi sono IVA inclusa 

Pay a mento contrassegno Per ordini superiori a 
L. 50.G0Q spese postali a nostro carico. 

SPECIALI SCONTI A TUTTI 
I RIVENDITORI 






32 - Computer Cfub 


GIOCHI 

Vie 20 

Break 
Out 

Super gioco 
per Vie 20 inespanso 

D i questo gioco esistono molte 
versioni. 

Nuovissimo è invece il modo di mi liz- 
za re il popolare computer della Commo- 
dore che viene qui chiamato a modificare 
addirittura il dimensionamento righe- 
colonne dello schermo. 

Come era stato pre annunciato sul Parti- 
colo che studiava il circuito integrato 
6561 (N.17 CCC), ecco che pubblichia- 
mo un gioco fondato su IT impiego razio- 
nale delle sue numerose locazioni di 
memoria. 

Il gioco è scritto interamente in Lin- 
guaggio Macchina ma viene allocato in 
memoria mediante istruzioni READ e 
POKE di due programmi Basic, La tec- 
nica di caricamento avviente in overlay 
{vedi CCC N.9), 

C! iò vuol dire che è necessario attener- 
si scrupolosamente alle regole che 



seguono: 

» Digitare il primo listato (il più lungo) 
registrarlo e verificarlo SENZA farlo gi- 
rare c solo dopo averlo scrupolosa niente 
controllato, 

* Digitare il secondo listato, registrarlo 
e verifica rio in modo che sul nastro si 
trovi SUBITO DOPO quello 
precedente. 

* Tornare indietro col nastro, caricare il 
primo listato e dare il RUN lasciando 
abbassato il tasto play de! registratore. 

» Dopo alcuni secondi il secondo pro- 
gram ma sarà automaticamente caricato 
(riga lt) primo listato) e lanciato premen- 
do il tasto FI. 

» Se avete digitato i due programmi cor- 
rettamente lo schermo del Vie diventerà 
stretto e alto e la velocità del gioco (inte- 
ramente in linguaggio macchina) darà 
del filo da torcere anche ai più bravi! 

■ i. 

La pressione della barra spaziatrice fa 
partire una delle tre palline a disposizio- 
ne mentre la racchetta si sposta a destra o 
a sinistra mediante i due tasti cursore. 

Ci Furiceli i 
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BREAK OUT <1> 

5 PRINTMCLEAR3 "iPOKE 5£,25:POKE 
56,25 

10 POR 1=6400 TO 6933 i READ A:POKE 
I , A 5 KEXTs LQAD 

20 DATA 162,0, 183,0,128, 157 ,0,28,2 

32.224.0 . 208 . 245 . 238 .4.25. 238 . 7 
,25,173,7,25 

21 DATA 201,30,208,230,189,161,2,1 

57. 0. 28. 232. 224. 40. 203, £45, 169, 
14,141,15,144,163,255 

22 DATA 141,5,144,163,22,141,1,144 
,169,190,141,3,144,169,18,141,0 
, 144,169,144,141,2 

23 DATA 144,165,197,201,39,208,250 
,162,0,32,226,26,76,128,27,32,9 

4.27. 189.0. 30.74 

24 DATA 176,5,169,32,157,0,30,24,1 

65.87.101 .88. 170. 165.91 . 157.0. 3 
0, 173, 105,25,4! 

25 DATA 31,141,86,25,141,94,25,201 
,30,208,81 , 165,96,74, 176,39, 138 
,74,189,1,30,144 

26 DATA 3,189,255,29,74,144,26,138 
,74,169,32,144,5,157,255,23,176 
,3,157,1,30, 169 

27 DATA 1,133,96,32,16,27,234,234, 
234,234,234,165,90,74,176,16,16 
5,88,201,16,208,36 

28 DATA 169,1,133,92,32,37,27,76,1 
4,26,165,33,201,240,203,78,163, 
0,133,83,233,105 

23 DATA 25,76,21,26,165,30,74,176, 

16.165.88.201.0. 208.49.206.105, 
25,169,240,133,33 

30 DATA 76,21,26,165,83,201,192,24 
0,7,201 ,240,208,37,76,150,27, 18 
9, 16,31 ,201,243,203 

31 DATA £7, 165,81 ,201 ,2,203, 10, 169 
,0,137,83,203,2,163,1 , 133,39,32 
,37,27,56,165 

32 DATA 83,233,16,76,19,26,24,165, 
88,105,16,133,83,165,33,74,176, 
32,165,81,201,0 

33 DATA 203,18,165,87,201,0,208,5, 
169,1 ,76,72,26, 138,37, 169,4,76, 
101,26,74,201 

34 DATA 1,240,251,76,101,26,165,31 
,201 ,4,208,27,165,87,201, 15,208 
,14,169,0,133,39 


35 DATA 169,220,141,12,144,189,2,7 

6.101 .28.230.87.169.0. 76. 101 .28 
,201,0,208,5,169 

36 DATA 2,76,101,26,10,133,31,173, 
139,26,201 , 14,240,19,165,197,20 
1 ,23,208,6,238,139 

37 DATA £6,76,138,28,173,139,26,20 

1 .0. 240.3. 165. 197.201 .31 .208.3, 
206,139,26,160,8 

38 DATA 169,248,153,208,31,165,92, 
74,169,32,153,207,31,153,210,31 
, 176,2,169,248,153,209 

39 DATA 31,144,5,163,15,141,107,26 
,134,93, 162,0,139,64 ,30,74,176, 
20,232,224, 123,203 

40 DATA 245,165,90,201,1,208,9,165 
,88,201,224,208,3,32,226,26,166 
,33,163,0,133,34 

41 DATA 133,95,230,34,203,252,230, 
95, 165,95,201 ,32,208,244, 141 , 12 
, 144,76,81 ,25,160,0 

42 DATA 169,7,153,64,150,163,3,153 
,36, 150, 169,2, 153, 128, 150,169,5 
, 153,160,150,200,132 

43 DATA 32,203,231,160,0,169,1,153 
,64,30,163,3, 153,65,30,200,200, 
192,123,208,240,96 

44 DATA 134,93,162,5,183,0,30,201, 

57.240.6.254.0. 30.76.43.27.163, 

48.157.0. 30 

45 DATA £02,224,1,203,233,173,3,30 
,201 ,49,208,6,233, 12,30,238,47, 
27,166,33,165,83 

46 DATA 201,128,16,7,234,234,169,2 
1 , 141,217,26,169,230,141 , 12,144 
, 169,1 , 197,90,208,2 


BREAK OUT <£> 

1 REM ** BREAK-OUT *# 

2 REM *************** 

3 REM BY 8. PURICELLI 

10 FOR 1=6934 TO 7129SREAD AtPOKE 
I ,A:NEXT 

12 FOR 1=673 TO 712:READ A:POKE I, 

A ! hEXT s POKE 36378,15 
15 PRINT" [OLEARI [ GIALLO 1CHOMEH 8 D 
QWN1PUSH FI"! 9YS6400 
£0 FOR U=0 TO 3000 sNEXT SPRINT” CCLE 
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GIOCHI 


ARI": POKE 36869, 240 SPRINT” [GIRL 
LO H HOME ] [3 DOWN3C4 R IGHTIGAME 
OVER " 

21 PRINT” IDOLNI [ 11 LEFTJPUSH FI TO 

PLAY" 

22 IF PEEK < 19? ) =39 THEN PRINT" [OLE 
AR I " s GOTO 25 

24 GOTO 22 

25 POKE 36869 ,255 s SYS8473 

30 GOTO 20 

50 DATA 169 ,0,1 33,30,96 , 169 ,0 , 133, 
96,78,71 ,27,134,93,162,0,24,139 
,B4, 30,125,65 

51 DATA 30,234,74,144,10,169,1,157 
,64,30,169,3,157,65,30,232,232, 
224,128,203,223,166 

52 DATA 93,36,160,0,169,43,153,1,3 


0,200, 192,6,203,248, 169,51 , 141 , 
12,30,169,49,141 

53 DATA 47,27,173,12,30,201,48,203 
, 1 ,36,206,12,30,165,197,201,32, 
208,250,169, 192, 133 

54 DATA 83,169,1,133,83,133,90,169 
,0, 133,91 ,133,92, 133,96, 169,32, 
141,217,26,169,14 

55 DATA 141,107,26,169,30,141,105, 
25,141,36,25,141,94,25,32,148,2 
24,165,140,4 1 , 13,133 

56 DATA 87,76,81,25 

60 DATA 0,0,240,240,240,240,240,0, 
0,127,127,127,127,127,127,0,0,0 
,60,60,60,60 

Gl DATA 60,0,0,254,254,254,254,254 
,254,0,0,0, 15, 15,15,15, 15,0 




fìg e 


HG 7 


LE IMMAGINI 
DI QUESTO 
FASCICOLO 


no 7 

a prrTTo grande & ucùesgo commerciale 
ntNVs stona deifeiabcr azione dai rfafr 
i det finanziere franca se 
Ctìa-rfes Xavier Thomas cfe Cfenfosr. Mj- 
gitati d> esemplar vumtivu dai 1820 ai 
1890 


FlG. S 

H problema di effettuare le monipfjca- 
z/oni viene /isoite La macchina del di' 
dotenne Leon Boiiee non utilizza piu it 
sistema dette addizioni ripetuto Aste di 
lunghezza disegnate (nova linee e 
v^COfcmnev sono ùssaro su alcune pia- 
stre metalliche. La moltipifcazione vie- 
ne effettuata meccanicamente E 1 ti 
188? 


FfG. 9 

Un'altra macchina a moltiplicazione di- 
rena. Quella d< William s Bar.'ougns. 
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GHOSTBUS l'HERS 



I n italiano significa “acchiitppaftm ta- 
si ni’" ed è proprio quatti lo scopo del 
videogioco che ricalca fedelmente U tra- 
ma del film ononimu e la canzone di Ray 
Parker junior. 

I protagonisti: tre simpatici ragazzi che 
fondono una società per aiutare i cittadini 
newyorkesi a liberarsi dai fantasmi. Pro- 
prio questo paradosso » il fatto che alle- 
gra lite n te dei ragazzi affrontino misteri 
dell 'oli reumi ha, ha permesso al film di 
ottenere un successo strepitoso sia in 
America che in Italia incassando milioni 
di dollari. I fantasmi si riuniscono tutti in 


una centrale dove stanno preparando 
strategie e di ah* dici piani per distruggere 
Rii esseri umani. Lo scopi» è quello di 
raggiungere il tempio di ZUUL» la cen- 
trale, dopo aver catturato il maggior nu- 
mero di fantasmi e soldi, 

li programmatore di questo gioco, il 


bravissimo David Grane, (autore di bel- 
lissimi giochi ddl Acti visioii Ira cui De- 
cathlon), è riuscito a realizzare nel gioco 
le stesse reati situazioni del film grazie 
all'ottima grafica ed alla stupenda musica 
(fedelissima alla colonna sonora). Se ai 
tutto aggiungiamo furto iniziale con la 
risata spettrale non possiamo fare a meno 
dì giudicarlo uno dei migliori computer 
game per il C64* 

La presentazione del gioco è veramente 
bella: riduce il sìmbolo di Ghostbusthers 
assieme all'urlo con la risata spettrale che 
prima dicevamo. Un messaggio scritto 
lettera per lettera vi chiede il vostro nome 
e se avete un numero di conto. Se non 
. 


siete mai riusciti a sconfiggere i fantasmi 
non avrete mai un vostro numero di conto 
e quindi la banca vi presenterà, per ini- 
ziare la vostra società, 10000 dollari, Vi 
serviranno per acquistare l' automobile e 
r attrezzatura» 

I /automobile potrà essere scelta tra 
quattro tipi, che differiscono tra loro per 
velocità di crociera e numero di attrezzi 
trasportabili. Il prezzo varia da un mini- 
mo di 2000 dollari per riitiRtada ad un 
massimo di 15000 dollari per la sportiva. 
La velocità è molto importante, perché 
meno tempo impiegate per percorrere le 
strade della città meno veloci saranno i 
Roamers, i fantasmi che si aggirano per le 
strade. 

1/ attrezzatura disponìbile è suddivisa 
in tre schermate differenti. Nella prima 
troviamo il rivelatore di energia PK, che 
rivela Partivo dì uno Slhner, fantasma 
che abita nelle case; cambia in rosa il 
colore di un edificio e costa 400 $* L'in- 
tensifi calore di immagini che vi permette 
di vedere e quindi catturare meglio gli 
Sii mers, costa BOO $. Infine il sensore per 
il Marsh mallo w, il mostruoso fantasma 
che si forma quando un numero sufficien- 
te di Roamers ha raggiunto il tempio di 
ZUL : L, che vi avverte del suo arrivo cam- 
biando il colore deir edificio in bianco e 
costa 800 $. 

Nella seconda schermata troverete fa- 
spira fantasmi che costa 5CM) % e vi aiuta ad 
aspirare i Roamers che avete incontrato 
durante il vostro pattugliamento per le 
strade deila città. Le trappole per cattu- 
rare i fantasmi costano MH) I l'una e con- 
tengono un solo fantasma, quindi e con- 




veniente comprare almeno due per non 
dovere tornare ogni volta al quartier ge- 
nerale, GHQ, dopo aver catturato un 
fantasma» Infine per 400 $ vi offrono fe- 
sca attira Roamers che vi permette di 
guadagnare migliaia di dollari distrug- 
gendo il Marsh ma Uovi tramile il tasto IL 
prima che distrugga f edificio, in questo 
caso le migliaia di dollari le perderete voi. 

Nell" uh ima schermata c'è un sistema 
che permette di contenere ben cinque Sii- 
mers ma costa JHMK1 $, Lo comprerete 
molto più avanti!!! 

A questo punto vi verrà presentata la 
mappa della città con l'energia PK che 
sale progressivamente c i dollari che pos- 
sedete. Quando un edificio diventa rosso 
significa che al suo interno c + è urto SU- 
mers; con i! joystick dirigetevi verso di 
esso cercando di intercettare più R^ta- 
mers possibili poiché ognuno di essi ogni 
volta che raggiunge ia centrale aumenta 
di 100 l'energia PK. Quando siete a fian- 
co de IL edificio premete il pulsante del 
joystick ed entrerete nel secondo quadro: 
viaggiando su una larga strada aspirerete 
ì Roamers che avete intercettato. Arrivati 
alla casa posiz innate la trappola ed il pri- 
mo gostbusthers girandolo verso la trap- 
pola e premete di nuovo il pulsante» Ora 
arriverà il secondo ghostbuslhers, dopo 
averlo posizionalo premete il pulsante 
per attivare i laser. Quando lo SUmer 
sarà ai centro dei due raggi premete di 
nuovo il pulsante per intrappolarlo. 

Nel caso di vittoria guadagnerete tanti 
dollari più sarete stati veloci ridia catto- 
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Nuovo corso rapido di 

PROGRAMMAZIONE 

BASIC su 
MICROCOMPUTER 



Scelga il Corso a lei pm adatto: 


PROGRAMMAZIONE, 
BASIC E MICROCOMPUTER 

• per il Ocommodore 064 

_ 

# per il fscommodore VIC 20 

* per il sincrl^ii - ZXSpectrum 

* per il ZX8I 

in sole 14 dispense lei impetrerà a: dia- 
logare con il computer, sviluppare pro- 
grammi da solo, modificare quelli esi- 
stenti, creare grafici in movimento, ca- 
pire l'informatica sui suo calcolatore, 
confrontare il BASIC con altri linguaggi 
(COBOL. FORTRAN, ecc.) e godrà del- 
l'assistenza gratuita dei nostri esperti. 


LA 1’ DISPENSA IN VISIONE 


Chieda subito, in visione gratuita e 
senza impegno, la 1 B dispensa più 
adatta al suo computer La riceverà 
completa di documentazione e solo 
per posta raccomandata. 

Cosi potrà toccare con mano la bontà 
del metodo IST e decidere in assoluta 
libertà. 

Sfrutti questa occasione e spedisca 
oggi stesso il nostro tagliando! 



=0 

ei- 



ra; in caso di fallimento perderete un 
ghostbusters e ['energia PK aumenterà di 
300; incrociando i raggi perderete tutti e 
due gli uomini* 

Il joystick vi permette di scegliere in 
quale edifìcio entrare mentre la barra 
spaziatrice permette durante la presenta- 
zione di far ripetere la parola 
ghostbusthers e durante il gioco dà la si- 
tuazione della vostra energia* trappole* 
uomini* Quando vi troverete con meno di 
due uomini o con trappole vuote dovrete 
tornare al quartier generale* 

La fase finale del gioco inizia quando Ja 
chiave e il lucchetto si avvicinano al tem- 
pio dì ZLLL e vi entrano* A questo punto 
il gioco può finire in due modi diversi. Se 
vi trovate con meno dollari dì quanti ve ne 
ha prestati la banca avete già perso altri- 
menti la banca vi comunicherà 11 numero 
di conto corrente die vi permetterà nel 
futuro di fare uso del dollari guadagnati 
dando il nome ed il conto corrente asso- 
ciato* Nei caso la banca vi comunichi $1 
conto dovrete cercare dì inserire due gho- 
sbusthers al E 'interno del tempio di ZUUL 
evitando l’enorme March mallo w. 

À questo punto avete finito i fantasmi e 
salvato lutti gli abitanti di New York* 


Idea: H 

Curabilità: 7 

Grafica e suono; 9 
Animazione: 8 

Voto: 9 

* « 


UP ’ND DOWN 

D opo n ** Ros „ «. 

un altro gioco affascinante della casa di 
software americana. Stavolta non si trat- 
ta di guerre spaziali ma di un simpaticissi- 
mo viaggio in automobile attraverso pae- 
saggi fantastici. 

La prima schermata permette ai gioca- 
tore di scegliere tra tre livelli di difficoltà: 
facile (si parte dal primo livello), medio 
(dal secondo livello)* difficile (dai terzo 



livello )tra uno o due giocatori, e se con- 
trollare la nostra automobile dal joystick 
o dalla tastiera. 

Per iniziare il viaggio bisogna premere 
il pulsante del joystick o la barra spazia- 
trice. Ci si presenterà un paesaggio pieno 
di prati attraversato da alcune strade di 
cemento che si incrociano tra di loro. In 
alto sullo schermo ci verranno fornite 
delle informazioni molto importanti. 
Partendo da sinistra troveremo il gioca- 
tore con il suo relativo punteggio, il mas- 
simo punteggio raggiunto, il livello di 
gioco, le automobili che ci restano da 
giocare ed infine dieci bandierine colora- 
te (che sono quelle che noi dovremo 
conquistare). 

1 1 punteggio aumenta con il passare del 
tempo, con le bandierine conquistate e 
con le automobili che faremo scoppiare 
cadendoci sopra. Nel terzo quadra in- 
contreremo delle automobili con una 
bandierina sul ietto: ce la regaleranno 
cadendoci sopra 

E’ possibile in tutti \ quadri saltare da 
una strada all'altra scavalcando prati o 
precipizi o il mare. Bisogna anche stare 
molto attenti alle salite e discese perchè 
perdendo velocità rischieremo di andare 
a IL indietro schiantandoci contro le amo- 
mobili che si seguono o dì acquistare 
troppa velocità e di tamponare le auto- 
mobili che ci precedono. 

Automobile in regalo con Uh KK> punti 
e Ogni 2Q0U0 successivi. 


Idea: 

8 

Gioca bili tè: 

8 

Grafica e suono: 

7.5 

Animazione: 

7 

Voto: 

8.5 
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BOOTY 


COWMOOOfìE 6J 




or JOYSTICK 


BOOTY 


'ìli;' ' 


V*^4' * 


(QmM 


la terza e ultima tolta appropriarsi di alla produzione citali 'energia. 


tutti gli oggetti che vi si trovano, al fine di 
ottenere la chiave d'oro che gli permette- 
rà fa fuga thi Ila nave fantasma. 

Idea 7 

Gìocabìlità c 

Grafica e suono 8 

Animazione 8 

Voto 8 


BIG-MAC 


1 N el gioco Booty * prodotto dalla casa di 
software Hrebird e distribuito dalla Ma* 
stertronic, il tema avventuroso si fonde 
perfettamente con quello fantastico. 

Il marinaio Jim dovrà dapprima cerca- 
re di impossessarvi del maggior numero 
possibile di oggetti, presenti al l'interno 
della stiva di un galeone pirata. 

Per conseguire questo risultato dovrà 
superare parecchie trappole che lo porte^ 
rebbero ad una morte crudele, divorato 
dai topi di bordo o tagliato a fettine da 
pirati fantasma. 

Se riuscirà a superare queste difficoltà, 
ed a raccogliere tutti gli oggetti presenti, 
avrà a disposizione 45 secondi per localiz- 
zare una chiave di bronzo ed aprirsi la via 
versi» il ponte di coperta del Galeone 
Nero, 

Anche qui, ma con pericoli maggiori, il 
nostro eroe dovrà collezionare tutti i teso- 
ri che trova sul suo percorsi», per acquisi- 
re una chiave d'argento che gli permette- 
rà di accedere al ponte di comando. 

Quando giungerà in questa parte del 
galeone, l'eroico marinaio Jim dovrà per 


JL I gioco Big-Man della casa di software 
Mastertronic, si contraddistingue per la 
varietà e la dinamicità delle situazioni di 
gioco a disposizione del Putente. 

L'agente speciale Big Mac deve cerca re 
di introdursi aJPinterno di una base se- 
greta nemica, nel tentativo di neutraliz- 
zare J a produzione di energia elettrica. 

Le informazioni che sono pervenute 
dai servizi di informazione alleali, gli 
hanno consentito di appurare l'esistenza 
di 18 diverse centrali interne destinate 


Quando l'agente segreto Big Man giun- 
gerà nella fortezza nemica gli schemi di 
protezione verranno immediatamente 
attivati. 

Il funzionamento dell 11 impianto di ossi* 
genazione interno verrà inibito ed avra a 
disposizione un tempo limitato per con* 
eludere la propria missione di sabotaggio. 

L'ottima grafica e l'eccellente sonoro 
renderanno ancora più avvincenti le si- 
tuazioni di gioco che progressi va niente si 
susseguiranno. 

[dea 8 

Gìocabìlità 8 

Grafica e suono 8 

Animazione 8 
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li UTILE 

COMMODORE 64 & STAMPANTE MPS 802 


Text 

Copy 


IL/ il routine vera e propria inizia dati;* 
linea 30000, Le linee precedenti servono a 
creare una schermata e a mostrare come 
inserire ed utilizzare la routine al l'inter- 
no dì un programma. 

L'output 

Lna volta copiato Liniero Listato (pote- 
te ovviamente saltare le linee che conten- 
gono solo i “due punti”) date il RL-N. Lo 
schermo verrà riempito con scrìtte e ca- 
ratteri grafici. Il risultato, se avete copia- 
to bene, è quello mostrato nella figura. 
Completata la schermata, il programma 
salta alla subroutine di stampa e, in circa 
un minuto, trasferisce la pagina testo su 
carta. 

Il programma 

Sulla prima parte, quella che riempie 
lo schermo, non credo volga la pena spen- 
dere parole. Passo quindi subito alla linea 
30000, dove viene aperto il canale 6 della 
stampante- 

Ri cor de rete certo (vedere articolo 
“I lard copy della pagina grafica su MPS 
802” pubblicato sul n* 18) che tale canale 
serve per comunicare atla stampante il 
valore dell'Interlìnea (cioè La distanza 
verticale tra le linee). Il valore che con- 
sente di scrivere le linee una sotto l'altra 
Senza spazi è 21. Se ricordate, nell'artico- 


Copiare la pagina 
testo su carta 

utilizzando 

la stampante MPS 802, 



lo sopra citato, dicevo che era 20 il nume' 
ro da comunicare. Ebbene, nessuno dei 
due valori è completamente errato o 
esatto. 

La stampante infatti non è precisissi- 
ma: alcune volte le linee, a parità d'inter- 
linea, risultano perfettamente comba- 
ci an ti, altre volte rimane un piccolo spa- 
zio o vengono leggermente a sovrapporsi. 
Nel caso dellTiard copy della pagina gra- 
fica ho preferito il valore 20, ohe evita nel 
99% dei cast gli “scoi lamenti” Lai prezzo 
di un maggiore numero dì sovrapposizio- 
ni). In questa routine invece ho optato per 
La Lira possibilità. Nulla vi impedisce di 
scegliere l'interlinea che preferite* 

, ^Nf ella linea 30010 vengono aperti due 
files: tl numero 3 per comunicare con lo 
schermo 4 (che nella linea precedente era 
stato già usato per altri scopi) per La stam- 
pante. Questa viene utilizzata per l'out- 
put, mentre il vìdeo verrà visto come pe- 
riferica in input. Il CHR$( 19)* che ripor- 
ta il cursore in alto a sinistra, serve per 
poter leggere il “file-schermo” 
dall'inizio. 

Le linee dalla 30030 si occupano dì 
prendere i dati del file-schermo 
(GET 3,A$| e trasferirli alta stampante 
(PRINT 4,*..} mantenendo il formato di 
40 colonne. Purtroppo i caratteri in re- 
verse non compaiono come tali nel file- 
schermo ma nella loro versione normale. 
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SPECIALE 


E 


eco la tabella con tutto il set di istru- 
zioni del 651 >2 che. ormai è noto, è il 
microprocessore utilizzato dai nostri he- 
ricamati Commodore 64, VIC20 ed ora. 
nella versione 7501, anche dal Commo- 
dore 16 e dal PLUS 4, 

F' una guida pratica, comoda, che può 
essere utilizzata in qualsiasi situazione e 
per qualsiasi scopo da! principiante e da 
ehi già conosce qual cosa ili linguaggio 
macchina. Ma bando ai preamboli. En- 
triamo nel merito della tabella, 

La tabella 

n set completo di istruzioni utilizzabili 
dal programmatore in Linguaggio Mac- 
china consta di 56 operazioni diverse. 
Ciascuna di queste operazioni viene uti- 
lizzata sfruttando un determinato indi- 
rizza mento in tutto sono disponìbili 13 
indirizzamenti, che analizzeremo più 
avanti. Naturalmente non sono permessi 
tutti i possibili abbinamenti tra operazio- 
ne ed indirizzamento, quindi, alla resa 
dei conti, potremo sbizzarrirci con la 
“modica" cifro di 151 istruzioni vere e 
proprie. 


A 


scanso di equivoci premei to che in 
questa tabella è stato volutamente trala- 
sciato un dato caratteristico del funzio- 
namento del microprocessore. Alludo al 
numero dei “cicli " necessari per ciascuna 
istruzione. Per dirla all’americana* il 
timing , 

Questa omissione è stata voluta pro- 
prio per motivi di chiarezza. 

Nella tabella (per usarla dovrete stuc- 
care i due fogli e farli combaciare } ogni 
operazione interviene in un campo diver- 
so. dando luogo alla vera e propria istru- 
zione. Così verticalmente, nella prima 
colonna a partire da sinistra, sono ripor- 
tate le parole chiave a nostra disposizio- 
ne (ÀDC.AND.ecc)* mentre orizzontai- 
mente, nella prima riga in aho, le varie 
indicizzazioni abbinala li, 

Il punto di incontro della riga con la 
colonna individuerà un campo, caratteri- 



ISTRUZIONI 



di Simone Bettola 


■s l ico del! 1 istruzione che vogliamo utiliz- 
zare, Questo campo contiene in realtà 
tre valori diversi, che vanno sempre te- 
nuti presenti al momento di 
programmare. 


L 


e prime due cifre riguardano il codi- 
ce utilizzato per distinguere quella deter- 
minala istruzione. ! 'unica differenza tra 
i numeri 5e costituita dalla loro base nu- 
merica' Ì1 primo è espresso in notazione 
decimale (V ). mentre il secondo in quel- 
la osa dee ima le (S), Tale accorgimento 
può sembrare superfluo, ma spesso ci si 
può trovare a dover utilizzare una base 
piuttosto che l'alt ra, 

Dunque, il primo valore esprime il co- 
dice operativo in notazione decimale, il 
secondo in csa deci male* cd il terzo ri- 
guarda la lunghezza effettiva di ogni 
istruzione, cioè lo spazio utilizzato in 
memoria. 

Ogni istruzione può richiedere 1. 2o3 
bytes a seconda dell' indirizzamento uti- 
lizzato, Il terzo valore del campo (N) 
riguarda appunto la sua lunghezza 
globale è importante ricordare che il nu- 
mero riportato è comprensivo dell’istru- 
zione stessa. Quindi, quando per esem- 
pio si dice che una istruzione è “a due 
bytes", intendiamo (c non solo noi) che 
oltre al codice operativo stesso abbiamo 
un solo b\ te di lavoro 


Un esempio 

Supponiamo di avere l'istruzione JSR 
Sa 183 e di volere sapere quali valori ven- 
gono effettivamente posti in memoria. 
Innanzitutto cerchiamo la parola chiave 
nella colonna verticale, poi procediamo 
orizzonta Ini ente: l’unico indirizzamento 
disponibile è quello assoluto (guarda ca- 
so). Il campo che abbiamo individuato 
contiene 3 valori: 032,20,3. 

Il primo non ci interessa per il momento, 
è espresso in decimale; il secondo è il 
codice operativo che cercavamo, mentre 
il terzo ci dice che la nostra istruzione 
richiede altri due bytes per specificare 
l'indirizzo di partenza della nostra 
subroutìnc, 

1. 'indi rizza mento assoluto (vedi oltre) 
vuole che i due bytes seguenti l’QP CO- 
PI" siano espressi nella forma LFLHB, 
La nostra istruzione si presenta dunque 

nella memoria come: "20 83 Al". Se noi 
volessimo creare una routine in L.M. 
partendo dal Basic con i soliti READ. 
PA I A e PO KE, nelle istruzioni DAI A 
dovremmo digitare i seguenti numeri de- 
cimali: “DATA 32, J0 Lift V\ 

Nula: prestate attenzione alla somiglianza fra 
la lettera “O" ed il numero “0'\ che non è 
stato sbarrato diagonalmente 
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Mnemonico 


ADC 


AND 


ASL 


BCC 


BCS 


BEQ 


BIT 


BMI 


BNE 


BPL 


BRK 


BVC 


BVS 


CLC 


CLD 


CLI 


CLV 


CMP 


CPX 


CPY 


DEC 


DEX 


DEY 


EOR 


INC 


INX 


INY 


JMP 


JSR 


ISTRUZIONE 

OPERAZIONE 


A - M * C * A,C 
Addiziona con Carry, 


A A M - A 

And logico fra accum ulatore « memoria 

■» * 4., 

C -! 7| 6[ 5*4| 3 2 1[ Oj - Q 


Branch or Larry Cleared (C = 0} 
Salta se carry = Ci 


Brandi or Carry Set (C = 1) 
Salta se Carry = T 


Brandi òn EQual (2 = 1) 
Salta se uguale 


A A M EA non viene modificato) 

And logico fra accumulatore e memoria 


Brandi on Mlnus {n = 1J 
Salta se negativo 


Branch or Non Equal (z = 0) 
Saita $e non È uguale 


Branch on Plus (n = 0) 
Salta se positivo 


PC + 2 + * $ 

Contatore di programma e status nello stock 
Branch on oVarflow Cleared (V = 0) 

Salta se overflow » 0 


Branch on oVerflow Set (V » 1) 
Salta sa overflow = 1 


0 * C 

Pone a 0 il carry 


0 * D (lavora in esadecimale) 
Pone a 0 il modo decimale 


0 * I 

Pone a 0 rinterrupt 


0 - V 

Pone a 0 Toverflow 


A - M 

Compara l'accumulatore alia memoria 


X - M 

Compara x alla memoria 

Y - M " 

Compara y alla memoria 


M - 1 * M 

Decremento la memoria 


X - 1 * X 
Decremento X 


Y - 1 + Y 
Decremento Y 


AM M * A 

EOR logico fra accumulatore e memoria 


M 4 1 * M 

Incremento la memoria 


X * 1 * X 
Incrementa X 


Y 4 1 -p Y 
Incremento Y 


JuMR to new location 
Salta ad una nuova locazione 


Jump Sub Routine 

Salta ad una sottoprocedura 


Immediato Assoluto Pagina Zero 
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SPECIALE 


Gli indirizzamenti 

« Implìcito. Un istruzione implicita de- 
riva il suo nome dal fatto che non contie- 
ne specificamente Findirizzo dell’ope- 
rando su cui opera, eri infatti non richie- 
de niente oltre a! codice operativo stesso. 
Tipicamente viene utilizzato per opera- 
zioni che riguardano esclusivamente i re- 
gistri interni. (Es.: INX= E8) 

* Assoluto, Abbiamo già visto nelLe- 
sempio precedente che tale indirizza- 
mento richiede 3 bytes, dove il primo è il 
codice operativo stesso, ed i restanti due 
costituiscono lindi rizzo a 16 bit che spe- 
cìfica l'operando. Tale valore, dal ni£>- 
mento che il 6502 è un microprocessore 
ad & bit. cioè tratta solo valori fino a 255, 
viene codificato nella memoria secondo 
it consueto ordine LB.HB .ottenuti gra- 
zie alla ancora piti consueta formula 
HB“ (N/256) , LR= N — 256* HB, (Es.; 
LD A SA9B0 = AD BG A9) 

* Immediata. In questo caso l’operando 
non è contenuto nella locazione puntata 
dall'Istruzione, ma è costituito dal secon- 
do byte stesso; naturalmente (per la limi- 
tazione degli S btt) sono impegnati solo 

due bytes. (Es>: LDA# $00 = A900) 

* Pagina zero. Per definizione sono im- 
piegati soltanto due bytes e questo è ben 
lungi dal costituire una limitazione 

si può considerare come una variante 
dell 'indi rizza mento assoluto, in quanto 
in pratica il 6502 pone automaticamente 
a zero il H13 delfoperando. senza quindi 
che ci sia bisogno di specificarlo, QuesEa 
forma impiegata consente non solo un 
minore spazio impiegato, ma anche, e 
soprattutto, una maggiore rapidità di 
esecuzione in virtù deformai famoso ti- 
ming. Va impiegato tutte le volte che si 
eseguono operazioni sui registri in pagi- 
na zero. che come sappiamo, sono molto 
importanti per il normale funzionatile uro 
del calcolatore. (Es, LDA$FB= A5 FB). 

* Accumulatore. Riguarda solo alcune 
istruzioni che interessano Face emulato- 
re . quindi prevalentemente operazioni d i 
scorrimento, E simile all'implicito, dal 


quale si differenzia solo conce ttua Ime n* 
te. (Es,: LSR .A = 4À) 

» Indiretto indicizzato. Sfrutta l'indice 
X e serve soprattutto per creare tabelle 
in pagina zero che possono essere scorse 
semplicemente modificando il registro 
X, Per maggiori chiarimenti (senza dub- 
bio necessari soprattutto per i meno 
esperti), rimando al mio articolo in que- 
sto stesso numero. 

(Es.: LDA(SFB.X) = Al FB) 

* Indicizzato indiretta. Utilizza l'indice 
Y e si differenzia dal precedente non 
solamente per l’indice utilizzato 
infatti serve prevalentemente per gestire 
tabelle in tutta la memoria. Abbinato 
oppurt una mente al precedente offre ca- 
rati: e ri uriche di flessibilità veramente ec- 
cezionali. Anche per questa istruzione 
consìglio di consultare la quinta parte del 
corso di L.M, 

(Es: LDA (SFB).Y = B1 FB) 

• Assoluto indicizzato in X ed in V, No- 
nostante sia molto più semplice del pre- 
cedente, offre ugualmente ampie possi- 
bilità. Grazie a questo indirizzamento si 
può modificare l'operando di un’istru- 
zione assolutati scmplicementefacendo 
variare un indice; naturalmente sono ne- 
cessari 3 bytes. Supponiamo di avene il 
seguente programmino; 

LDX #$05 

LDAÌA000.X 

RTS 

L’accumulatore sarà caricato con il con- 
tenuto della locazione $(AOQO+ 05) 

(Es, : LDA $ÀOOO,X = BD 00 Ari) 

• Pagina zero indicizzato in X ed in Y. 
Variante del precedente, applica le ca- 
ratteristiche di indicizzazione alle opera- 
zioni in pagina zero: per esso valgono 
tutte le indicazioni già esposte relative 
al Lindi ri zza mento in pagina zero. Penso 
che non sìa superfluo rilevare che esiste 
una fondamentale differenza tra questo 
indirizzamento e quello indiretto indiciz- 
zato (e indicizzato indiretto), insita pro- 
prio nelLindirczìone. 
(Es.:LDA$Àl,X= B5 AI) 

* Indiretto. Puro, non abbinato quindi 
all’indicizzazione, viene utilizzato solo 


da un'istruzione: JMF(SXXXX). L'ese- 
cuzione del programma viene trasferita 
ad una locazione individuata sfruttando 
la stessa tecnica di indirezione dì cui pai - 
lavamo prima. Chiarisco con un escm 
pio; se l’istruzione in questione è JMP 
(SA 123). il registro SA 123 contiene XX 
ed il registro $( A 123+01) contiene YY. 
il contatore di programma verrà caricato 
con il valore SYYXX, e da qui prosegui- 
rà riesecuzione. 

(Es,: JMP (SA123V=6C 23 Al) 

Altre indicazioni 

Conclusa hi carrellala sugli indirizza- 
menti. scopriamo altre due colonne sulla 
nostra tabella che sono importantissime 
per la programmazione e per la com- 
prensione del Linguaggio Macchina, Im- 
mediatamente a destra della colonna che 
riporta le parole chiave, viene fornita 
una breve descrizione, che aiuta a meglio 
comprendere quello che effettivamente 
compie l’istruzione, Pali indicazioni so- 
no sia in inglese che in italiano, curando 
però di quest'ultimo la sua traduzione 
nella nostra lingua madre. Questa dop- 
pia nomenclatura può servire per megli 
abbinare mnemonicamente il nome con 
I ’ ape raz io n e e scg u i ta Po r c se n i pio . pe is- 
sando a ‘BEO viene più spontaneo 
co [legarlo a "B ranch on EQual” che a 
'■salta sé uguale". 

rima colonna a destra, tutti i singoli bits 
che compongono ti byte di status, fonda- 
mentale per il funzionamento del 
calcolatore. 

Nell'ordine sono riportati: 

N -Nega live 

Z-Zcro 

C-Carry 

Linfe rrtipE 

D Decimai 

V-oVertlow 

I bit interessati dalla determinata 
istruzione sono segnati con un asterisco, 
con uno 0 n con un 1 se lo scopo delrii- 
st rii rione è di modificarli. 
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s 

C 

"0Ì 
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è 

fp 

r_J 
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u 

<Li 

jc 

E? 

□ t>- 

«| 
a> £ 

0 'E 
nS 

^ L- 

: !o ìi 

Q. E 
^ a; 

■3 W 

C c 

3 8 

^ 'ET 

4/ì T< 

■Jj C ? 

flj W* 

E 2 

5 P 
<u 

ìd “■ 

LA. <D 

- £1 

5 « 

1 È 

M cj 

TC -' 

C. ™ 

e 

a e 

1 E 

5 o 

c £ 

OJ 

O P3 
fil o 

IT É= 

fi 

'1 8 
q. ro 

Cl _0 

O o 

Tr ^ 

LDA 

M - A 

Canea l ac cumulatore enn fa memoria 

169 

A3 

2 

173 

AD 

3 

165 

A5 

2 



" ; 



LDX 

M - X 

Carica X con la memoria 

162 

A2 

2 

174 

AE 

3 

166 

A6 

2 






LDY 

M * Y 

Carica Y con fa memora 

1E0 

AO 

2 

172 

AC 

3 

164 

A4 

2 






LSR 

0 * 

* + «* ** *r # mi 




073 

4E 

3 

070 

46 

2 

074 

4A 

1 



1 6 

5 

4 3 

2 1 

IP - li! 

NOP 

No OPeration 

Nessuna opera; ione 




— 









234 

EA 

ORA 

A V M - A ! 

OR logico fra accumu latore e memoria 

009 

09 

— 

2 



013 

OD 

3 

005 

05 

2 






PHA 

A - S 

Pone l'accumulatore nello stack 













072 

40 

PHP 

P - S 

Pone lo status nello stack 













008 

OS 

PLA 

S - A 

Ritira l'accumulatore dallo stack 



i 

1 









104 

68 

PLP 

S - P 

Ritira lo status dallo stack 













040 

28 

ROL 

C 

- 7 

6 5 

4 1 3 2 

1 

f> 

|p-~ 




046 

2E 

3 

038 

26 

2 

042 

2A 

1 



, t ^ 



ROR 

r . 

Zi® 

5 

4 3 

2 1 

0 

— » 

c 




110 

SE 

3 

102 

66 

2 

106 

SA 

1 



i rr 

RT1 

ReTurn from Irtterrupi 

Ritorna da rnterrupt 













064 

40 

RTS 

ReTurn from Sub routine 

Ritorna da sottoprocedura 













096 

60 

SBC 

A ■ M - C - A , C 

Sottrae con carry 

233 

£9 

2 

237 

ED 

3 

229 

£5 

2 






SEC 

1 * C 

Pone a 1 il carry 













056 

38 

SED 

1 * D (asegue in decimale) 

Pone a 1 il modo decimale 













248 

f& 

SEI 

1 * l 

Pone a 1 fin ter rupi 













120 

76 

STA 

A + M 

Pone face umiliato re nella memoria 




141 

SD 

3 

133 

65 

2 






STX 

X * M 

Pone x nella memoria 




142 

8E 

3 

134 

86 

2 






STY 

Y - M 

Pone y nelle memoria 




140 

se 

3 

132 

84 

2 




■ 


TAX 

A - X 

Trasferisce A in X (a non varia) 













170 

AA 

TAY 

A * Y 

Trasferisce A in Y (a non varia) 













168 

A 8 

TSX 

S - X 

Trasferisce lo stack m X 













186 

SA 

TXA 

X * A 

Trasferisce X in A IX non varia) 













138 

8A 

TXS 

X * S 

Trasferisce X nello stack 













154 

9A 

TYA 

Y + A 

Trasferisce Y in A (Y non varia) 













152 

98 







1 

.1 

B 'B 
«• 

A3 w 

3 £3 

iT O 

V ^ 

SI 

S - 
■ '• Tj 
*— ^ 

in o 

# Codice operativo decimale 

$ Codice operativo esadecimale 

N Numero di bytes impegnati 

P Flag di stato 

S Stak 

M Memoria 
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161 

Al 

2 

177 

91 

2 

181 

05 

2 

189 

BD 

3 

185 

B9 

r~ 

3 

[ 
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E 

( ! 
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1 
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84 

2 
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se 
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2 
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5E 
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2 
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15 

2 
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3 
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19 
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DALLO STACK 
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36 

2 

062 

3E 
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2 
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7E 
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DALLO STACK 
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225 

E1 

2 

241 

FI 

2 
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F5 

2 
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FD 

3 
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F9 

3 
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2 
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95 

2 
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90 

3 
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99 
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EGENDA 

A AND * Modificato 

V OR - Non modificato 

* OR esclusivo M?(M 6 ) Bit 7 (6) della memoria 
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CONCESSIONARI MEZZI 
RADIOTELEVISIVI 


studio 

d 


STUDIO D 

PER NON SMARRIRE MAI IL FILO DEL DISCORSO. 
STUDIO D 

EMITTENTI RADIOTELEVISIVI INDIPENDENTI CHE SI FANNO SENTIRE. 


STUDIO D 

Via Rossini S - 20122 MILANO 
Tel. (02) 799.592-782.503 
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flND),Y Pag r Zmo,x Assoluto, Jt Assoluto, y Relativo 

" — i " — ~ ~ — - i — -r— 1 ' — 

$M#$ISI# $ N # $ N 


2 113 71 2 117 j75 2 125 7D 3 121 ! 79 3 




2 061 3D 3 




022 ! 16 2 










144 90 


176 







048 

30 

2 


DO 

2 

016 

10 

2 















50 

2 

70 

2 










209 [ DI 2 213 DB 2 221 DD 











214 06 2 222 DE 















OSI 51 




035 

&5 

2 

093 

5D 

3 

246 



F6 

J 

2 

254 

FE 

3 











Indiretto I Pag. Zero, y 


$ N 




STATUS 


N Z C I D V 
























108 6C 







M 7 * - -- - 
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Calcio Computer, 8 programmi 
software per Commodore 64, che di 
volta in volta ti insegneranno 
a compilare la schedina (e possibilmente 
vincere), elaborare i tuoi pronostici 
sulla classifica di campionato, raccogliere 
e consultare i dati delle squadre e dei 
giocatori di serie AeB. 

Con Calcio Computer si inaugura Mondosott, 
il nuovo periodico per home computer 
della Mondadori. 

Ogni quattordici giorni in edicola con un nuovo 
, ■. programma su cassetta corredato da un 
fascicolo a colori. 



Mondosoft, per esplorare i vari “mondi 
del software. 



Si è quindi reso necessario un controllo 
diretto nelle locazioni dello schermo (li- 
nee 30050 e 30060). 

Se il carattere risulta reserve allora vie- 
ne mandato alla stampante preceduto da 
CHR$( 18) (REVERSE ON). In caso con 
trario viene preceduto da CHR$< 146) 
(RE VERSE OFF). Terminalo il trasferi- 
mento e chiusi i File* viene re iniziali zzai a 
la stampante (lìnea 30090). Ciò serve a 
riportare l'interlinea al valore di 
“'default ¥ \ 

Stampa allargata a spostata 

Per ottenere una copia allargata dello 
schermo basta inserire nella linea 30030: 
PR1NT 4,CHR$<14) 

Tale linea risulterà quindi: 

30030 FOR K=1024 TO 1984 STEP 40: 
PRUNI 4, CHR$(14) 

E 1 anche possìbile, entro certi limiti, 
fare .stampare la pagina testo ad una di- 
stanza, dal margine sinistro del foglio, di 
vostra scelta. In tale caso la linea 30030 va 
cambiata Così: 

30030 FOR K = I024 TO 1984 STEP 40: 
PR1NT 4, B$ 

Ea variabile US deve contenere solo dei 
CHR$(32), cioè degli spazi. Il numeru di 
spazi contenuti determina la distanza, dal 
margine sinistro, alla quale verrà stam- 
pata la schermata- Poiché urta scelta della 
posizione tramite input sporca la pagina 
testo dovrete, nei vostri programmi, o 
prevedete tale scelta prima di disegnare 
la schermata oppure mantenere fisso il 
contenuto di B$. 

In quest’ ultimo caso vi basterà inserire 
Ee seguenti linee: 

30020 B$=“ FOR 1 = 1 TOnn: B$=BS 
+ CHRS(32): NEXT 
30025 !F LEN(BS) AND 1)=0 THEN 
B$ — B$ +CHR$( 146) 

Dove nn indica il numero di spazi (tra 1 
e 40, mi raccomando! \el caso che abbia- 
te previsto l’input del margine, nn andrà 
sostituito con la variabile che contiene il 
valore introdotto. La linea 30025 sì rende 
necessaria per poter stampare corretta- 
mente tutti i caratteri in reverse, nel raso 



che B$ contenga un numero pari a spazi. 

Se siete meravigliati di tale affermazio- 
ne osservate bene la stampante al lavoro, 
quando copia la pagina testo “spostata”. 
Vedrete che ogni riga viene scritta in due 
o tre l * passale”. Ciò perchè la serie di 
caratteri comunicanti, per ogni riga di 
stampa, supera le 80 unità: nn spazi più 
80 caratteri per lo schermo (40 di questi 
sono solo di controllo e quindi non fanno 
avanzare il carrello). 

Alla fine di ogni passata viene azzerato 
il flag di re verse della stampante. 

S i tratta di una specie di “carriage rc- 


U UTILE 


turo with no line feed", cioè un ritorno 
carrello senza avanzamento della carta 
(vedere pag. 28 del manuale). 

Ho detto “una specie" perchè il micro- 
processore della stampante in questo caso 
“sa” che la stampa va ripresa dalla co- 
lonna in cui si era interrotta e non da 
quella piu a sinistra. 

Ebbene, quando B$ contiene un nume- 
ro pari dì caratteri il “carrrage return" 
capita sempre tra il carattere dì controllo 

(REVERSE ON o REVERSE OFF) e il 

carattere da stampare. Quest’ ultimo per- 
ciò viene sempre stampato in modo nor- 
male (REVERSE OFF). Per evitare rin- 
culi veniente basta aggiungere un caratte- 
re a B$ quando la sua lunghezza risulti 
pari . Io ho usato il CHRK 146) ma va bene 
qualunque carattere che non sia stampa- 
bile te che non provochi effetti 
indesiderati), 

R i marie un problema non risolto. Se 
provate a riempire B$ con 39 spazi, la 
stampante va in crisi e non fa avanzare la 
carta tra una riga e l’altra. Chi è in grado 
di spiegare e dì correggere tale anomalìa? 

E 1 ultima nota: gli apici (o virgolette) 
disturbano la stampa dei caratteri che li 
seguono, quindi cercate di evitarli nelle 
vostre schermate. 


Danilo Toma 


##♦*** t********************************* 


TEXT COPY 


COPI fi SU NFS 30£ bri PAG IMA TESTO 


<C> 138^ DAMILO TOMA 
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100 REM ttt»t»T*'**1itt»t*t**('**t******* 


110 REM ** CBM 64 & I4PS 802 ** 
120 REM *t ** 
130 REM ** TEKT COPY ** 
140 REM +* ** 
150 REM ** CO 1585 ORNILO TOMA #* 


160 REM * + * + *1r* + ********** + + f ******* + * 

170 PRINTCHR*C 147 >; : POR I = ITO40 : PR INTCHR*( 97 >1 SNEKT 

180 PRINTSPRINTI PRINTTABC 12>CHR*C 117)1 

190 FQR 1 * ITO 13 s PR INTCHR4>C 99 > ; • NEXT» PR 1MTCHRSC 105) 

200 PRINTTABC 12 )CHR*C 98) .* TABC 26)CHR*C 125) 

210 PRINTTABC 12)CHR*C 98) “ TEKT COPY U CHR$C125> 

220 PRINTTABC 12 )CHR*( 98 ) J TABC 26 )CHR$< 125) 

230 PRINTTABC 12)CHR*C 10S>? 

240 FORI = ITO 1 3 s PR IMTCHRSC 96); : rCKTtPR 1 NTCHR^C 107) 

250 PR 1 NT SPRINT SPRINT »PR IMTT ABC 3) CHRstt 18>;CHR*C 163); 

260 FORI = 1T032sPR 1NTCHR*C 32 ) ; : fEKT s PR INTCHR$< 127 ) 

270 PR 1MTTABC 3 )CHR*C 18); 

280 PRINT’ COPIA SU MP3 802 LA PAGINA TESTO " 

290 PRINTTABC 3)CHR*< 127>;CHR*C 18)1 

300 FOR I - 1TQ32 ■ PR INTCHR^C 32 ) ; ! NEXTSPR 1NTCHR*C 146),*CHR*< 169) 
310 PR I NT SPRINT SPRINT 

320 PRINTTABC I0)"(C) 1985 PANILO TOMA*' 

330 PR 1MT SPRINT «PRINT 

340 PRINTTABC 15)CHR*< 18) ? : FOR I = ITO 10 i PR INTCHR^C 119).* INEXT 
350 PRINT SPRINT SPRINT 

380 PRINTTABC 3 >CHR*< 18 ) ? s FOR I = 1 T034 s PR INTCHRtt 122)?ìMEXT 
370 : 

380 GO9UB30000S REM STAMPA SCHERMO ** 

390 : 

400 END 

410 s . • 

420 : 

430 s 
440 : 

29000 REM +*+ ROUTINE TEKT COPY +tt 
29010 - 

30000 CPEM4 ,4 ,6 :PR INT#4 ,CHR*C 21 ) s CLOSE4 
30010 OPEN3, 3SOPEN4 ,4 !PP 1MTCHR*-: 19),* 

30030 FORI', 3 1024TO 1 934STEP40 
30040 FOP 1 =0TO39 s GETH3 . A*’ 

30050 IFPEEK.C K+l ) M27THENPR 1NTH4 ,CHR*C 18)JA¥; 

30060 IFPEEKC K * I )< 128THENPP INTK4 , CHR^C 146) .‘A*; 

30070 FEKTs IFA*< >CHR« 13>THEhPR JNTK4 
30080 MEKTs CLOSE3 s CLOSE4 
30090 OPEN10.4 , 10 s PR INTtt 10SCLOSE10 
30100 RETURN 

READY. 
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Archivio 
Per le Routine 


Un metodo semplice 
ed efficace 
per utilizzare decine 
di routine L. M. 
all’interno dei vostri 
programmi Basic. 


Supponete di scrivere un programma 
che utilizzi numerose routine* in LM o 
comunque dati numerici. Un modo per 
scriverlo consiste nei convertire tutte le 
routine* in numeri e trascriverle nel pro- 
gramma principale sotto forma di righe 
DATA, Questo sistema permette di avere 
in un corpo unico routine* e programma 
principale, ma presenta alcuni inconve- 
nienti- 

Se, infatti, le routine* sono molte e lun- 
ghe c'è un problema di spazio nella memo- 
ria RAM, che non è molto sentito in un 
C64, ma è abbastanza grave in un VIC 20 
inespanso. Un numero inserito in una riga 
DATA occupa circa 2 volte la memoria che 
occuperebbe normalmente e, per program- 
mi lunghi che utilizzano numerose routi- 
ne*, potrebbe comparire il fatidico OUT 
OF MEMORY, costringendoci a "re- 
stringere" il programma magari privando- 
lo di alcune funzioni utili. 



Un secondo problema è che quando si 
scrivono molte routine*, il programma di- 
venta un "ammasso di dati" che, oltre ad 
avere una scarsa leggibilità, utilizza mollo 
tempo per leggere tutti i dati. 

T ’ 

1 J idea che proponiamo è quella di re- 
gistrare tutte le routine* su disco (o even- 
tualmente su cassetta) come files sequen- 
ziali e richiamarle solo quando servono. 
Con questo sistema è possìbile avere una 
routine per volta in memoria, con un note- 
vole risparmio di locazioni RAM. Un se- 


condo vantaggio è che le varie routine* 
possono essere allocate anche tutte nella 
stessa parte di memoria, dato che vengono 
caricate una alla volta, 

i file sequenziali 

Per chi non sapesse cosa sono o come si 
gestiscono i file sequenziali, ecco una bre- 
ve spiegazione. I file sequenziali sono un 
particolare modo di registrare dati nume- 
rici (e non) su disco o cassetta, l'uno dietro 
l'altro, appunto sequenzialmente. 

Lo svantaggio consiste nel fatto che se vo- 
gliamo leggere l’ultimo dato di un file dob- 
biamo leggerli tutti. 

Nonostante tale inconveniente, i file se- 
quenziali possono essere utilizzati con pro- 
fitto per l'applicazione descritta in questo 
articolo. Per cominciare a lavorare con un 
file sequenziale bisogna innanzitutto "aprir- 
lo”, in lettura o in scrittura con l'istruzio- 
ne: 

GPENnf, de, sa, "no mefite, s, r,” 

... oppure...; 

OPENnf, de, sa, "nomefile* s, w'\ 

“Nf ' è il numero del file che può variare 
a nostro piacere Ira 1 e 255, 

"De" è il numero delta periferica sulla 
quale vogliamo aprire il file (I per la cas- 
setta, 8 per il disco). 

"Sa" è l'indirizzo secondario che può 
essere D oppure 1 rispettivamente per la 
lettura e per La scrittura. 

"Nome file” è appunto il nome del file 
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che vogliamo aprire» che per La cassetta è 
opzionale ma per il disco è obbligatorio e 
non deve essere più lungo di 16 caratteri, 
pena il troncamento degli X-16 caratteri 
più a destra. 

*%$” serve per dire che il file aperto è di 
tipo sequenziale* 

“ t r" e s \w“ servono per indicare se il 
file è in lettura (Head) o in scrittura (Wri- 
tc). 

Esìste un terzo modo di aprire un file 
sequenziale in scrittura, non citato nel ma- 
nuale del drive 1541, Digitate al posto di 
o ‘y 1 , il codice “, 3 ” (Append). Se si 
apre un file in questo modo e con lo stesso 
nome di un file già presente su disco» i dati 
scritti nel file appena aperto andranno ad 
aggiungersi ai dati del file su disco permet- 
tendo così di concatenare due o più files* 

Dopo aver aperto il file si può» a secon- 
da dei casi» leggere o scrivere dati con le 
istruzioni PRINT#nf, INPUT#nf, oppure 
GET#nf. Esaminiamole in dettaglio: 

• PRlNTffnf (dove nf è il numero del file 
aperto) serve per scrivere un dato. La sua 
sintassi è: 

« PRINT#nf, dato (,dato2, dato3, ecc.), in 
cui “dato” può essere una variabile nume- 
rica o stringa, un numero o una stringa 
racchiusa tra apici e chi più ne ha più ne 
metta. Se scriviamo con la stessa PRINTtf 
più dati, questi devono essere separati da 
virgole* 

« INPUT# serve per leggere un dato dal 
file. 

La sintassi è: 

INPUTttnf, var (,var2 f var3, ecc.) 

in cui “var” è una variabile a piacere tra 
quelle possibili. 

• GET#serve anelf esso per prelevare dati 
ma, a differenza di # INPUT#, preleva un 
carattere alla volta. 

Ad esempio se con INPUT# leggiamo il 
valore 257, con GEI# leggeremo dappri- 
ma 2, poi 5 ed infine 7, in tre passaggi 
diversi. La sintassi di GET# è la stessa di 
INPUT#. 

Infine il file DEVE essere chiuso con L'i- 
struzione CLOSEtif, in cui “nf è sempre 
il numero del file aperto. 

Se si tenta di scrivere in un file aperto in 
lettura si avrà un NOI OUTPUT FILE 


ERROR» mentre se si tenta dì leggere in 
un file aperto in scrittura si avrà il corri- 
spondente NOT INPUT FILE ERRGR. 

1 listati 1* 2 e 3 serviranno per chiarire 
meglio le idee. 

Come utilizzare il programma 

Dopo questa parentesi ritorniamo alla 
descrizione del programma. Per poter uti- 
lizzare le routines in questo modo bisogna 
innanzitutto,,, farle, poi trasformarle in 
numeri decimali ed inserirle come righe 
DATA in coda al programma del listato 4, 

Bisogna quindi dare RUN al program- 
ma che, una volta avviato» chiederà prima 
l'indirizzo di partenza delia routine, V indi- 
rizzo di fine della Stessa, il SYS che biso- 
gna dare per avviarla (che non sempre co- 
incide con findiri zzo di partenza) e infine 
il nome che vogliamo dare alla routine, che 
sarà quello con cui dovremo poi richiamar- 
la. 

La routine verrà cosi scrìtta sul disco 
apposito (che avremo naturalmente prov- 
veduto ad inserire) e rimarrà a nostra di- 
sposizione per tutte le volte che ne avremo 
bisogno. 

Per richiamarla ed eseguirla in un pro- 
gramma principale si deve inserire in que- 
sto la Linea: 

NMS=“nome routine": GOSUB 63000; 
SYS SY 

Da 63000 in poi dovranno essere inserite 
nd programma principale le corrisponden- 
ti linee del Listato 5. Se non vogliamo ese- 
guire immediatamente la routine basterà 



memorizzare SY in una variabile, ad 
esempio: 

NJV1$="nome routine": GUSUR 63000: 
Rl-SY 

e digitare poi SYS Ri in qualsiasi punto 
dd programma che utilizzi quella routine. 

(Questo sistema permette anche di mi- 
gliorare La leggibilità dd programma. In- 
fatti leggendo il nome delta routine in 
NM$=“nome" si dovrebbe capire a che 
cosa serve la stessa e, di conseguenza» 
comprendere meglio che cosa fa quel de- 
terminato pezzo dì programma, 

I listati 6, 7 e 8 sono degli esempi di 
routines da provare» usando il programma 
del listato 4. 11 è l'indirizzo di partenza, 12 
quello di fine e SY è la SYS da dare per 
avviarle, li nome da dare a queste routines 
deve essere quello specificato fra apici od- 
ia seconda Lìnea REM dei tre listati. Le 
righe da 5 a 300 del listato 5 servono come 
dimostrazione dì quanto detto: caricano ed 
eseguono le tre routines dei listati 6, 7, 8 
seguendo il metodo prima descritto. Tali 
routines possono apparire di scarsa utilità 
ed infatti hanno il solo scopo di realizzare 
un semplice DEMO di applicazione. 

II numero massimo dì routines registra- 
bili su un disco è 144» perché questo è ap- 
punto il numero di files che la directory di 
un disco formattato con il 1541 può conte- 
nere. 

Nella directory le nostre routines avranno 
il suffisso SEQ (SEQuentìal— sequenzia- 
le) al posto del solito PRG (PRoGram) che 
siamo abituati a Vedete. Le routines pos- 
sono anche essere registrate su cassetta 
semplicemente aprendo un file con de— 1, 
invece che con de— 8» ma il tempo dì lettu- 
ra dei files sequenziali da cassetta è tal- 
mente elevato da rendere molto piu conve- 
niente il “vecchio" sistema delle linee 
DATA, 

E più esperti potranno modificare il pro- 
gramma in modo da usarlo per registrare 
dati che non siano routines LM (ad es, dati 
per sprite» per La musica» ecc.) battendo 
RETURN a vuoto alla domanda *SYS' e 
ovviamente non facendo SYS SY in fase di 
ricarica dei dati stessi. 

Giuntarlo Mariia» 
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ARCHIVIO ROUTINE 1 

10 REM "LISTATO 1" 

15 REM "SCRITTURA DI UN FILE SEG 
UENZ I ALE “ 

£0 FRI NT" INSERISCI 5 PAROLE " 

30 FOR K=1 TO SiINPUT A$(K>:N 
EXT K 

40 OPEN 1 ,3 , l , " PAROLE , S , UT : REM 
APERTURA DEL FILE SU DISCO 
50 FOR K = 1 TO 5 
60 PRINTttl ,A*(K) :REM SCRITTURA P 
AROLE 
78 NEXT K 

30 CLOSE 1 s REM CHIUSURA DEL F IL 
E 


ARCHIVIO ROUTINE 2 

10 REM "LISTATO £” 

15 REM "LETTURA DI UN FILE CON IN 
PUT# 11 

£0 OPEN 1 ,3,0, "PAROLE , S ,R " s REM AP 
RE IL FILE IN LETTURA 
30 FGR K= 1 TO 5 

40 INPUT# 1 ,A$<K>; REM CARICA LE FA 
ROLE 

50 NEXT K 

60 CLOSE 1 s REM CHIUDE IL FILE 
70 FOR K-l TO 5 
80 PRINT A*(K):REM SCRIVE LE PARO 
LE SUL VIDEO 
S0 NEXT K 


ARCHIVIO ROUTINE 3 

10 REM "LISTATO 3 11 

£0 REM * LETTURA DI UN FILE CON GE 
T#" 

£5 OPEN ì , 8 ,0 , "0 : PAROLE ,S ,R w : REM 
COME LISTATO 2 

30 GET #l,A$s REM CARICA UNA LETI 
ERA ALLA VOLTA , - * 

40 PRINT AS; t REM , ..E LA SCRIVE S 
U VIDEO 

50 REM CONTROLLO, TRAMI TE LA VARI 
ABILE DI SISTEMA ST,CHE SI SIA 
LETTO L’ULTIMO 


60 REM L’ULTIMO DATO DEL FILE. < 
VALORE NORMALE ST=0> 

70 IF ST=0 THEN 30: REM SE ST=0 
VA A 30, SE NO FINISCE 
30 CLOSE 1 : REM CHIUDE IL FILE 


ARCHIVIO ROUTINE 4 

I REM SCRITTURA ROUTINE SU DISCO 
£ REM BY MARIANI GIANCARLO 

3 : 

5 FR INT " ICLEAR ] " 

7 INPUT "INDIRIZZO PARTENZA " ; Il 
3 INPUT "INDIRIZZO FINE "ME: 

IP I£< 1 1 THEN S 

II INPUT "SYS ’VfSY 

13 INPUT " NOME ROUTINE ";N$: 

IF LEN<N$) > 16 THEN 13 
19 OPEN £,8,15 

£0 OPEN 1 ,8,1 ,"0s ,S,W n 
30 PR INT# 1 , 1 1 : PRINT#! , I£:pRINT#l ,S 

Y 

40 FOR K= I 1 TO I£ : READ ASPRINT 
#1 , A : NEXT 

50 INPUT#£,A$,S$,D$,F$:PRINTA$ 3$ 
D$ F$ 

80 CLOSE 1: CLOSE 2 
65 : 

70 REM INSERIRE IN QUESTE RIGHE 
80 REM LE ISTRUZIONI "DATA" DEL 
80 REM PROGRAMMA IN L.M- 
100 REM (VEDI ESEMPI PUBBLICATI) 

ARCHIVIO ROUTINE 5 

5 REM LISTATO 5 
10 REM LETTURA +D IMQSTRAZ IONE 
15 REM Br MARIANI G . 

£0 PRINT" ICLEARI" 

30 NM$= H INTESTA2 IONE" : GOSUB G3000: 
SYS SY 

40 GOSUB 300 

50 NM$= "ARCOBALENO * : GOSUB 63000:3 
YS SY 

60 GOSUB 300 

70 NM$= " COLOR I " ! GOSUB 63000" SYS S 

Y 

80 GOSUB 300 

30 PRINT" [CLEAR I [DOWN IF INE DIMOSTR 
AZ IONE”: END 
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300 POKE 138 ,0 ì WA I T 198, H RETURN 
62330 EFC 

68995 REM "LETTURA ROUTINE LM. " 

62996 REM "IL NOME DEVE ESSERE IN NM 


i. " 

62397 REM "DOPO AVERLA CARICATA," 
62998 REM "LA ROUTINE SI PUÒ’ ESEGUI 
RE" 

62399 REM "DIGITANDO SYS SY, " 

63000 ! 

630B5 OPEN 71 ,8,0, "0: "+NM*+ H ,S,R” 
63010 IM=-UT#71 , I 1 t INPUT#? 1 , I£i 1NFUTH7 


1 ,SY 

63020 FOR K= I l TO 12 : JNPUTH7 1 ,A s POKE 
k , A : NEXT ! CLOSE 71 i RETURN 


ARCHIVIO ROUTINE 6 

985 REM .LISTATO 6 
990 REM "INTESTAZIONE* 

992 REM 11=43152: 12=43332 :SY=4315£ 
1000 DATA 163,0, 170, 168, 183,21 ,132, 1 
57 

1010 DATA 40,4,169,14,157,40,216,232 
1020 DATA 224,160,203,240,36,32,32,3 
2 

1080 DATA 32,32,32,32,32,32,32,1 
1030 DATA 13,3,8,3,22,3, 15,32 
1100 DATA 13,21,2,18,15,21,20,3 
1110 DATA 14,5,32,32,32,32,32,32 
1120 DATA 32,32,32,32,32,32,32,32 
1130 DATA 32,32,32,32,32,32,2,25 
1140 DATA 32,32,13,1,18,3,1,14 
1150 DATA 3,32,7,9,1,14,3,1 
1160 DATA 18,12,15,32,32,32,32,32 
1170 DATA 32,32,32,32,32,32,32,32 
1180 DATA 22,9,1,12,5,32,2,18 
1130 DATA 3,1,14,26,1,32,55,50 
1200 DATA 32,32,50,48,48,51,54,32 
1210 DATA 13,5,4,1,32,40,13,3 
1220 DATA 41,32,32,32,32,32,32,32 
1230 DATA 32,32,32,32,32,32,32,32 
1240 DATA 32,20,5,12,46,32,48,51 
1250 DATA 54,50,47,55,50,53,54,53 
1260 DATA 32, 32, 32, 32, 32, 32, 32, 32 
1270 DATA 32,32,32,32,32 


ARCHIVIO ROUTINE 7 
350 REM LISTATO 7 


300 REM 
310 REM 

2 " 

920 REM 
1000 DATA 
1010 DATA 
1020 DATA 
0 

1030 DATA 


"ARCOBALENO" 

“ 1 1=49 152 i 12=49 197i3Y=4915 


169.42.162.0. 160.0.157.0 
4, 157,250,4, 157,244,5, 157 

238.6.152.157.0. 216.157.25 

216,157,244,217,157,238,21 


8,200 

1040 DATA 192,16,208,2,160,0,169,42 
1050 DATA 232 ,224 ,250,208 ,217,38 


ARCHIVIO ROUTINE 8 

950 REM LISTATO 8 
300 REM "COLORI" 

910 REM * Il =43 152: 12=49173: SY=43I5 
2 " 

920 : 

1000 DATA 173,32,208,133,251,162,0,1 
60 

1010 DATA 0,142,32,208,232,224,255,2 
08 

1020 DATA 248,200,192,255,208,243,16 
5,251 

1030 DATA 141,32,208,86 
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G ESTIONE 


dei Nominativi 


descrivere ]' utilizzo del programma 
pubblicato si seguirà un ordine totalmente 
diverso da quello che compare nel menù. 
Privilegiando, cioè, l'ordine "'logico”. 

• Opzione 2, Aggiunge nomi alla lista, se 
presente, altrimenti ne crea una. Si devono 
introdurre i nomi seguiti da RETURN 
mentre si ritorna al menù digitando V aste- 
risco (*). 

* Opzione 7. Mostra la lista dei nomi pre- 
senti in memoria. Con un tasto qualsiasi si 
passa alla pagina successiva, mentre con R 
si ritorna al menù principale. 

• Opzione 3. Si usa per cancellare nomi 
scritti in modo errato o che non sì vogliono 
più considerare. Quando compare il nome, 
premendo t] tasto *'S” verrà confermato, 
con "N” cancellato mentre con ”R” verrà 
eseguita l'operazione di cancellatura con 
successivo ritorno al menù, 

«Opzione t. Ordina alfabeticamente la li- 
sta di nomi presenti in memoria. 

• Opzione 4, Registra i nomi su supporto 
magnetico ed è seguita da un menù secon- 
dario che richiederà se i nomi si vogliono 
aggiungere (inerge) o sostituire (replace} 
ad un eventuale file già presente (se sì vuo- 
le creare un nuovo file usare replace). In 
seguito verrà chiesto il nome del file. Con 
l'opzione merge, il nuovo file verrà carica- 
ta automaticamente in memoria. 

♦ Opzione 5, Carica tu memoria un file in 
cui verrà richiesto il nome. 

♦ Opzione 6. Stampa la lista dei nomi pre- 
sente in memoria. 



Verranno poste alcune domande: se alla 
prima di esse si risponde con **C” t verrà 
eseguita una stampa compattata incolon- 
nata su tre colonne e numerata. 
Rispondendo invece con “N 7 \ verrà posta 
un'altra domanda. 

Digitando “N”„ si avrà una stampa non 
numerata su un numero di colonne a scelta 
il cui numero massimo, calcolato automa- 
ticamente in base alla lunghezza massima 
dei nomi, sarà comunicato volta per volta, 
mentre digitando “2* 1 si avrà ima stampa 
numerata so 2 colonne. 

Facciamo notare che l'opzione di stam* 
pa compattata è utilizzabile solo in unione 
con la stampante MPS-80K Disponendo dì 
altre stampanti (come la MPS-802) è pos- 
sibile solo l'opzione di stampa normale. 

• Opzione 8. Fine del programma. 


• Opzione 9, Riporta il programma allo 
stato di partenza. 

Si possono impostare fino a 1 000 nomi 
ma in tal caso è consigliabile compilare il 
programma. 

A proposito di Mps 801... 

Nel programma viene utilizzata la su- 
broutine di stampa compattata pubblicata 
sul N. 15 di Commodore Computer Club. 
J.o sapete proprio tutti come si disegna con 
la MPS 801? 

Ai principianti viene fornita qui di seguito 
una breve spiegazione riguardo questo ar- 
gomento. 

Per programmare un carattere non 
standard come quello di figura 1, bisogna 
farne una raffigurazione su di un foglio a 
quadretti utilizzando una striscia alta 7 
quadretti e lunga fino a 480 (!!). Si anneri- 
scono i quadretti in cui si desidera inserire 
un punto mentre si lasciano bianchi i rima- 
nenti. Finito il disegno inizia la parie dedi- 
cata al calcolo. 

Si considera una colonna per volta (stri- 
scia alta 7 e lunga 1 quadretto) e a partire 
dalfaìto si moltipllca il contenuto di ogni 
quadretto (pieno=l vuoto=0) per ìc po- 
tenze crescenti di 2 (da 2 elevato 0 fino a 2 
elevato 6). In seguito si sommano tutti i 
valori della colonna ottenuti, con il numero 
costante 128 e si prende nota del risultato. 
Nella figura 1 il procedimento è rappresen- 
tato, per motivi di spazio, solo per le prime 
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due colonne* Per le altre il procedi mento 
usato è perfettamente identico. 

!P er stampare il carattere programmato, 
si apre dapprima un canale (comando 
OPEN) e si travia il carattere che segnala 
L'ingresso in graphk mode: CHR$( 8 ), se- 
guito da un punto e virgola (;). Si inviano 
quindi uno alla volta i dati in forma ASCII 
(il solito CHRS(X)) seguiti ciascuno dal 
punto e virgola. Alla fine si invia un 
CHR$(15) (col punto e virgola se si vuole 
stampare di seguito) per tornare al modo 
di stampa normale* 

Volendo seguire un disegno che si esten- 
da in verticale per più di 7 punti è suffi- 
ciente dividere il disegno nelle solite stri- 
scia di 7 quadretti, mentre per segnalarne 
la fine (cioè per andare a capo) e necessa- 
rio inviare il dato di valore 13 (13, NON 
13+128). 


h ah io Sorgalo 


1 , « « 01 «ii* * « - « • 

2 * 1 1< « « * * ■ ® » ■ • ** * 

4 

3 * •§*. 

16 - * 

32 *•»••••§ 

64 i « itp « * i tli « # « « i* 

128 

1234 


1 : 1 * 0 + 2 * 0 + 4 # 1 + 8*1 + 16 # 1 + 32 * 0 + 64 * 0 + 1 28= 156 

2 : 1 # 0 + 2 * 1 + 4 * 0 + 8 * 0 + 16 * 0 + 32 # 1 + 64 * 0 + 128= 162 

- * 


10 GPEN1 j 4 • PRINTttl ,CHR$<8) i 
20 FORKs'lTOl? : RERDB ■ PRINT# 1 , CHR$(R) / '• NEXT 
30 PRINT#1,CHR*<15> : "THE NEH COMPUTER" ; 
CLOSE 1 ^ END 

40 DATA 156, 162, 193, 193, 132, 162, 128, 190,291 
,291, 178, 128, 184, 164, 162, 255, 160 

RUM 

CSd THE NEH COMPUTER 





-« 





— ■ - — 

1 ALESSANDRO ! FABRIZIO 

1 GENNARO 1 MARIANNA 

1 PAOLA 


t 

i 

1 BETTINO 

i FRANCESCO 

(LIVIA (MASSIMO 

1 SANDRO 


( 

1 

1 ERMANNO 

1 GASPARE 

1 MARIA 1 MIRELLA 

(SILVANA 

i 

i 








■ 


\J HLE5SHHDKD 



6) CH5RRHE 


11? 

MB55IMD 



V SETTIMO 



V CEMMHIfD 


m 

MIRELLB 



T) EEMRHMD 



9) UMlfl 


m 

PfiOLH 


. 

H:> FRSRItlfl 



9) MHfflH 


HI 

5RNDH0 



5? FRRNCESCD 


' 

r m MMXffNNfl 


ts? 

SILUANfi 












10 REM ** GESTIONE NOMI 

** 

E0 REM ** COMPUTER COMMODORE & M 
PS 801 ** 

30 REM ** 

** 

40 : 

100 PRINT" ICLEAR J":DIM PR$U000>! 
GOSUB 1780 

1 IO N=0 ! A$= “ " : K 1 =0 ! K=0 ! C=0 < 0P$= " " : 
C 1=0 

1 15 C 3 = 0 : K2=0:K3-0:C£=0:M=e:Ml =0:B 


" 11 i C$= " " 

120 D$= ” " :DC=0 : BO=0 :F=0i Dl$=“ " SRR$ 

= PI II 

^ 4 

125 GW$=CHR$<8>+CHR$< 123 > +CHR$<255 
)+CHR$< 123) 

130 144$="'' :KK$=" " ! J=0 
140 PRINT" CCLEARH2 DOWN]"; 

150 PRINT" 1 >-ORO INA ALFABETI COMENT 
E" 

160 PRINT"2 RAGGIUNGE NOMI" 

170 PRINT"3) -TOGLIE NOMI" 

130 PR INT"4)-REG ISTRA NOMI" 
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190 PRINT"5> -LEGGE NOMI" 

S00 PRINT“6> -STAMPA NOMI" 

210 PR I NT ”7) -MOSTRA NOMI" 

220 PR 1NT"8 > -F INE ” 

£30 PRINT"9) -RESET" 

£40 PR I NT "13 OOWNI 11 sPOKE 198,0 
£50 INPUT "QUALE < 1 -9 ) " i A*: IF A*< " 
1" OR A*>"3" THEN A*= " " ! PR INT" 
[£ UFI" SGOTO £50 
260 IF A*="3" THEN £80 
£70 GOTO 320 

280 PR INT" ICLEAR3 12 DOWN1SEI SICUR 
0? <S/N> ’ s POKE 198,0 
£90 GET A*S IF A*<>"S’' AND A*<>"N" 
THEN £90 

300 IF A*= "S" THEN RUN 
310 GOTO 140 

3£0 ON VAL < A*)GQTO 330,480,560,730 
,940,1040,1590,1720 
330 REM ***OROINA ALFABETI CAMENT 
E*** 

340 IF N< = 1 THEN 140 
350 PR INT’ [OLEARI [DOWNIORD INANENTO 
ALFABETICO" 

360 PR INT" [DONNI ATTENDERE PREGO,,. 
[□OLMI* 

370 FOR C1=M TO £ STEP -1 
380 OP*=PR*< 1 > 

390 C3= 1 

400 FDR C2=8 TO CI 

410 IF PR*<C2)>0P* THEN OP*=PR*<C£ 
) :C3=C£ 

4£0 NEXT 

430 PR* ( C3 ) =PR* < C 1 ) 

440 RR*(C 1 > -OP* 

450 NEXT 

460 PR 1 NT" t DONNI FATTO ! ’ 

470 PR INT" IOGLMIPREMI UN TASTOCDON 
N 1 " i POKE 198 ,0s WAIT 198,1:G0T0 
140 

480 REM *** AGGIUNGE NOMI *** 
490 N=N+ 1 i PR INT " tCLEAR 3 [D0LN1AGG IU 
NIGE NOM II DOLIMI" 

500 PR INT " C * PER FINIRE >[£ DOLIMI" 
510 REM 

520 PR*(N>=" " sPR INT "NOME N. "JNJ ! IN 
PUT PR*<N> 

530 IF PR* ( N > = ” * " THEN PR*(N>=" " :N 
=N- ti GOTO 140 

540 IF PR*(N>= " " THEN PR I NT " [ £ UPI 
" :GOTO 510 


550 N=N+1 SGOTO 510 

560 REM ** TOGLIE NOMI ** 

570 PR INT" IC LE ARI! DONNI TOGLI E NOMI 
[DONNI" 

580 K=1 !C=l SPRINT" ECLEAR1 [D0LM1 (IR 
VS1SIRVDFF1 1 , [RVS 3N[RV0FF IO , IR 
VSIRtRVOFF II TORNO )[£ DGNN3" 

590 PR INT "NOME N, "K " ! “ ; PR*(IO 
600 GET A*s IF A*0"S“ AND A*<>"N" 
AMI A*< > *R ■ THEN 600 
610 IF A*= ’S " THEN PRINT TAB<37);" 
IUPISI" 

680 IF A*= *R " THEN 650 

630 IF A*=”N“ THEN C=C+1 SGOTO 720 

640 K=K+ 1 s IF K<=N THEN 590 

650 PR*CN+n = "tPlI"iFOR K=1 TO N 

660 IF PR*<K)= P " THEN 690 

670 NEXTKSN=N-C+1 s IF N<=1 THEN N=1 

680 GOTO 710 

690 FOR K 1 =K TO Ns PR*<K li =FR*<K 1 + 1 

) 

700 NEXTK 1 s GOTO 660 
710 PRINT " ID0LMIPREM1 UN TASTO’SPO 
KE 198,0! WA IT 1S8,1SG0T0 140 
7£0 PRINT TAB<37>" CUPI [RVS INO" sPR* 
<K)="" SGOTO 640 

730 REM **# REGISTRA NOMI *** 
740 IF N< =0 THEN PR INT" ICLEAR1 [£ D 
0WN3N0N CI SONO NOMI IN MEMORI 
A! • IOONN3" SGOTO 1710 
750 PR I NT "[ OLEARI [DONNI REGISTRA2 10 
NE NOMI [00NN1 ” 

760 PRINT" [DONNI tRVSIM[RVOFF 3ERGE 
0 [RVS IR CRV0FF1EPLACEI DONNI " 
770 GET A*: IF A*<>"M n AND A*O n R" 
THEN 770 

788 IF A*="M" THEN 870 
790 INPUT 'NOME FI LE"; A* 

800 PR INT "ATTENDERE PREGO..." 

810 OPEN 1,8,15," S0 ! " + A* • CLOSE 1 
820 OPEN 1,8,1 , " " + A* s PR I NT# 1 ,N 
830 FOR K= 1 TO N+ I : PR INT» 1 ,PR*<K > 
840 NEXT: PR INT# 1 ,CHR*< 13 >i CLOSE 1 
850 PR INT" [£ DONNIFATTO!" 

860 PRINT” [DONNI PREMI UN TASTO [DON 
NI " sPOKE 198 ,0 SNA IT 193,1 SGOTO 
140 

870 REM MERGE 

880 ITPUT "NOME FI LE"; A* 

896 PRINT "ATTENDERE PREGO. , . " 

900 OPEN 1 ,8 ,0 , A* 
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9 10 INPUT» 1 ,C 

9S0 FOR K= 1 +N T'O C+N+ 1 i INPUT# 1 ,PR* 
CKl :NEXTiCLOSE 1:N=N+C 
930 GOTO S 10 

940 REM *** LEGGE NOMI *#* 
950 PRINT 1 ’ IOLE OR 1 [DOWN 3 LETTURA NOM 
I [ DOWN! " 

960 INPUT “NOME FILE" ; A* 

970 PRINT "ATTENDERE PREGO. . . " :OPEN 
J,a,Ì5,*I0*!CLOSE 1 
980 OPEN 1 ,8,0,9* 

330 IMHJT#1,N 

1000 FOR K-l TO N: INPUT# 1 ,PR*<K> 

1010 NEXT:CLOSE 1 

10£0 PRINT" 12 DOWN] FATTO ! " 

1030 PR I NT “l DONNI PREMI UH TASTO! DOW 
NI " : POKE 138 ,0 1 14A 1 T 198,1JG0T0 
140 

1040 REM *** STAMPA NOMI **# 
1050 PR INT " [CLEAR 1 IDOUMl STAMPA NOMI 

ri 

1060 INPUT “ CRVS3NIRVOFF DORMALE 0 ! 
RVS1CIRVOFF 10MPATTA" J Ul*: IF W*< 
>”N" AMD W*< > “C ‘ THEN 1040 
1070 IF W*="C" THEN 1350 
1080 INPUT " [CLEAR ] IRVS ]2 [RVOFF 1 FI 
LE NUMERATA 0 [RVS ]N!RVOFF ] FI 
LE * ; W* ! I F W*< > "N“ AND W$<>’’£" 
THEN 1080 

1090 IF W*=‘N" THEN 1220 

1100 PRINT" [ DOWN 3 ATTENDERE PREGO, . . 

12 DOWN] “ sPR*<N+l)=“" 

1110 M= INT (N/2) sMl =M4 IF N/2 >M THEN 
MI =M1 +1 
1120 OPEN 1,4 

1130 FOR K= 1 TO 80[RRINT#1 , NvEX 
T : PR 1 NT# 1 ! PR INT# 1 
1 140 WK*=” 

* : REM 40 SPAZ I 

1150 FOR K = 1 TO MI 

1160 A*=LEFT$K"i "+STR*<K>+" ) "+PR*< 
K > +WK* ,39 ) 

1 170 D*“A* 

1180 A*=LEFT*<"1 11 +STR*(K+M1 ) + " 1 " +P 

RiCK+Ml >HJK*,39> 

1190 PR INT# 1 ,D*S A*ì FEXT iPR INT# 1 
1200 FOR K = 1 TO 805PRINT#! , " -"I sNEK 
Ti PRINT#! 1CLOSE 1 

1210 PRINT" t DOWN] PREMI UN TASTOCDOW 
N J " SPORE 198 ,0*WA IT 193,1 SGOTQ 
140 



1220 FOR K = 1 TO N: MA-LENtPR*(K ) > s IF 
MA >MF THEN MF =MA 
1230 NEXT! FF = INT <80/tMF + 1 ) > 

1240 PRINT" [CLEAR 1QUANTE FILE <MAX” 
JMF; s INPUT F I s IF FIO 0 
R F I >MF THEN 1240 
1250 PRINT" I DOWN] ATTENDERE PREGO... 
12 OOWN]° 

1260 MIMNTCN/FI ) : IF Ml*FION THEN 
M 1 =M 1 + 1 

1270 OPEN 1 ,4 s S 1 = INT (80/F I ) ! FOR K = N 
+ 1 TO N+F I + 1 s PR*<K ) * * “ J NEXT 
1280 FOR K= i TO S I *F I.s PR INT# 1 s 
NEXT:PRINT#1 : PRINT# 1 
1290 WK*= * 

" :REM 40 SPAZI 

1300 FOR K = 1 TO MI s FOR J=0 TO F I - 1 
1310 A*=LEFT¥< " | " +PR*(K+ J*M1 ) +WK*,S 


1320 PRINT#! ,A$; : NEXT: PR INT# 1 ! NEXT s 
PR I NT# 1 

1330 FOR K- 1 TO S I *F I : PR INT# 1 , " - " J s 
NEXTsPR INT# 1 '• CLOSE 1 
1340 PRINT" IDOWNJPREM1 UN TASTOIDOW 
NI “ : POKE 198 ,0 i WA I T 198,UGOTO 
140 

1350 REM *** STAFFA COMPATTA **# 
1360 PRINT" IDOWN] ATTENDERE PREGO... 

[2 DOWN!" JPR*(N+1 >=" " 

1370 PR*<N+2 ) =" " 

1380 OPEN 1 ,4 SPRINT#! ,CHR*< 15); 

1330 FOR K= 1 TO 77 i PR INT# 1 NEH 
T : PRINT# 1 
1400 WW*=" 


1410 FOR H= 1 TO 3:PRINT#1 ,QW*+CHR*< 
123>+CHR*( 123); :GOSUB 1520:NEX 


1420 PR INT# 1 ,QUI*+CHR*C 13 ) 
1425 REM WK*=52 SPAZI 
1430 WK*=" 


EM 

1440 MI = INT (N/3 > i ]F M1*30N THEN MI 


56 - Computer Club 


L’ UTILE 


=M1 + 1 

1450 FOR L= 1 T0 MI SPRINT#1 ,QW$) s FOR 
K=0 TO 2:J=L+M1*K 

1460 WW*=STR*<J)+*> *:WLJ$=WLI$+LEFT$ 
<PR$(J)+WK*,50) 

1470 60SUB 1550 S WLtt=LEFT$<KK* , 150 > * 
GOSUB 1570 

1480 WW*=GW$sGOSUB 1570 
1430 NEXTsPRINT#! ,CHR*< 13) f sNEXT 
1500 PR INT# 1 ,CHR$< 15)?: FOR K=1 TO 7 
7JPR1NT#! , *-“} SNEXT SPRINT# 1 sCL 
OSE l 

1510 PRINT" [DOUMIPREMI UN TASTOIDOW 
N] " : POKE 198,0SWAIT 198,lsG0T0 
140 

1580 REM *** COMPATTA LA STRINGA * 
** 

1530 PR INT# 1 , CHR$(8 ) 5 ! FOR T=1 TO LE 
N<H>J$) 

1535 PR INT# 1 ,A* ( ASC <MIO¥CH*J$ ,T , 1 ) ) ) 
; SNEXT 
1540 RETURN 
1550 REM 

15G0 KK$= “ “ s FOR T=1 TO LEN<WW$ ) s KK* 
=KK*+A*<ASC<MID$<WW*,T, 1 ) ) ) SNE 
XTs RETURN 

1570 REM ** STAMPA COMPATTA ** 

1530 PR INT# 1 ,CHR$(8 ) +ULJ$? SKK*=" u SWM 
*=“ ' : RETURN 

1530 REM *** MOSTRA NOMI *** 

1800 PRINT" ICLEARH DOWN] MOSTRA NOMI 
IDOWN1 " IC=0 

1B10 PRINT" [DOWN3PREMI UN TASTO" :PQ 
KE 193,0:WAIT 193,lsP0KE 133,0 
1620 PRINT" I OLEARI NOME! DOWN 3 " 

1630 FOR K = 1 TO NSPRINTK" ) "PR*<K> 
1S40 C=C + 1 s IF 0=20 THEN 1660 
1650 NEXT s GOTO 1710 
1660 0=0 s PR INT" IDQWN JPREMI UN TASTO 
< IRVS3RIRVOFF3 PER FINIRE)" 
1670 POKE 198,0 

1630 GET A*s IF A$="“ THEN 1680 
1690 IF A*=‘R” THEN 140 
1700 PRINT" [OLEARI NOME [DOWN] "s 

GOTO 1658 

1710 PRINT" IDQUI4] PREMI UN TASTO” S PO 
KE 1 33 , 0 • WA I T 133,lsP0KE 133,0 
SGOTO 140 

1720 REM *** FINE 

*## 

1730 PRINT" [OLEARI [2 00WN3SEI SICUR 


0? <S/N) " S POKE 198,0 
1740 INPUT A$:IF A*="N“ THEN 140 
1750 IF A4= "S " THEN PRINT"[£ DOWN 30 
IAO! I " SCLR SEND 
1760 GOTO 1730 

1770 REM * DEFINISCE CARATTERI COM 
PATTATI * 

1780 OIM A*< 128 > sT=32 
1730 READ A s IF A<128 THEN J = 128 
1800 AÌ<T)=A$<T>+CHR*<A+J>: IF A=0 T 
HEN T=T+ 1 

1310 J=0 s IF A<0 THEN 1830 
1820 GOTO 1730 
1830 RETURN 

1840 DATA 123,128, 128, 0,23, 0,3, 128, 

3.0. 10 

1845 DATA 31,10,31,10,0,18,21,31,21 
,9,0,17,3,4,2 

1850 DATA 17, 0,26 ,21 ,S6 ,20 ,0 ,2 ,1,0, 
14,17 

1855 DATA 0,17,14,0,21,14,31,14,21, 
0,4,4,31,4,4,0 

1860 DATA 16,12,0,4,4,4,4,0,16,0,24 
,4,3,0 

1865 DATA 31,17,31,0,31,0,28,21,23, 
0,17,21,31,0 

1870 DATA 7,4,31,0,23,21,13,0,31,21 
,29,0, 1 , 1 ,31 ,0,31 ,21 ,31 ,0,23,2 

1 .31.0 

1880 DATA 18,8,16,10,0,4,10,17,17,0 
, 10,10,10,10,0,17,17,10,4,0,2, 
i, 2 1,5, 2,8 

1830 DATA 31,17,21,23,0,31,5,31,0,1 

7. 31. 2 1.31. 0. 31. 17. 17. 0.31. 17, 

27.14.0 

1900 DATA 31,21,17,0,31,5,1,0,31,17 
,23,0 

1905 DATA 31,4,31,0,17,31,17,0,17,3 
1 ,1 ,0,31 ,6,25 

1310 DATA 0,31,16,16,0,31,2,4,2,31, 
0 

1320 DATA 31,2,4,31,0,31,17,31,0,31 
,5,7,0 

1925 DATA 31,17,31,16,8,31, 13,23,0, 

23.21 .23.0 

1930 DATA 1,31,1,0,31,16,31,0,15,24 
,15,0,31 ,8,4,8,31 ,0,27,4,27,0 
1940 DATA 3,30,3,0,25,21,19,0,31,17 
,0,30,21,21,18,0,17,31,0 
1950 DATA 2,31,2,0,9,28,8,8,8,0 
1360 DATA -1 


Computer Club -57 



IN CLASSE 

COMMODORE 64 


Asta 

che Cade 



II programma 


Osservare la caduta 
di un’asta 
da un muro 
in diverse condizioni 
dì velocità 
e gravità. 


Nel nostro caso il programma simula la 
caduta di un'asta sottoposta all'attrazio- 


to posto ad accelerazione costante, sarà; 

s=t > 2 * 0/2 

Secondo le leggi della meccanica tradì- 
zio nate lo spostamento di un corpo è gene- 
rato da una o più forze che agiscono su 
esso, La forza a cui siamo comunemente 
sottoposti t Quella gravitazionale. Un cor- 
pi! sottoposto ad una forza tenderà a spo- 
starsi nella sua direzione. 

n 

uindi un corpi», che nello stato di 
quiete viene sottoposto al La/ ione di una 
forza, subirà una accelerazione che sarà 
direttamente proporzionale alla forza e 
inversamente proporzionale alla sua 
massa. 

F=ma 

La Forza è indicata normalmente con F 
e si misura in new ton ( = intensità di forza 
che agendo su un corpi! di massa IKg, gli 
imprime un'accelerazione di m/s '2). 

In particolare la Forza di gravità si può 
ritenere costante e, l'accelerazione che 
imprime ad un corpo dì massa qualsiasi, 
per la legge di gravitazione universale, è 
di circa 9,8 m/s 2. Tale valore è chiamato 
costante di gravità ed è generalmente in- 
dicato con la lettera '“g". Lasciando ca- 
dere un corpo in caduta libera esso sarà 
continuamente sottoposto ad una forza di 
uguale intensità. 

Di conseguenza i! suo sarà un moto 
uniformemente accelerato diretto verso il 
basso perpendicolarmente al terreno e 
viene detto "moto naturalmente 
accelerato". 


1 1 movimento di un corpi» è caratterizza- 
to da due grandezze Fondamentali la velo- 
cità e l'accelerazione. 

La prima è intuitivamente molto facile 
da capire c non esprime altro che la rapi- 
dità con cui varia la posizione di un ogget- 
to, Lo spostamento di un oggetto, ovvero 

10 spazio che esso percorre, viene misura- 
to in metri, mentre il tempo impiegato 
verrà, in genere, misurato in secondi. 

La velocita viene Quindi definita come 

11 rapporto fra lo spazio percorso ed il 
tempo impiegato per percorrerlo; 

v =s/t 

[/ a cecie razione, invece, è la variazione 
dì velocità di un determinato arco di tem- 
po. I. 'accelerazione verrà quindi indicata 
come rapporto fra la variazione di 
velocità ed il tempo: 
a— (V-VoJ/s 

Lo spazio che il corpo percorrerà* sot- 
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Un étemprO dette traiettorie che può assumere t'itsm rrr -oar/jj^. 
Possiamo indifferentemente modificare fa irf/nrjftr ti? caditi» i- 
di fonda. 


ne gravitazionale. Per semplificare t cal- 
coli sì suppone che la caduta avvenga in 
assenza dì aria. 

Poiché orizzontalmente il moto dell'a- 
sta è rettilineo uniforme* il suo percorso 
nell'intervallo di tempo “t" sarà: 

Verticalmente, il moto è naturalmente 
accelerato, per cui lo spazio percorso dal- 
l'asta nello stesso intervallo di tempo ‘*f’ 
sarà: 

y=tf 2 *g /2 

Quindi lo spostamento dell'asta avver- 
rà, come potrete vedere, lungo una para- 
bola (vedi figura I)* Il programma è divi- 
so iti tre parti che simulano tre diversi tipi 
di caduta dell'asta. 

Nel primo caso essa cade verticalmente 
mentre nel secondo orizzontalmente. 

Nel secondo, invece, essa cade com- 
pie odo una rotazione intorno al proprio 
centro che coincide con il centro di massa. 
In tutti e tre i casi si dimostra che: “il 
baricentro di un grave lanciato orizzon- 
talmente percorre una traiettoria 
parabolica''. 

Nel terzo esempio è possibili? cambiare 
i valori dell'accelerazione (verticale) e 
della velocità (orizzontale). 

Si può così simulare la caduta di un'a- 
sta sulla terra, sulla luna o su marie, 
cambiando semplicemente i valori di g. 

A. 8 t A. Boriarti 


m- ^ w* 

> > > 

> CN CO 

il H II II 



Figura 1; parabola deMaMf in caftota. 


r 




LE IMMAGINI 
DI QUESTO 
FASCICOLO 

Per Pingiese Cknrtes Babbage. ii problema 
era calcolare e stampare cmrom&iicamense te 
Savoie nautiche ed astronomiche necessarie 
aiia navigazione per mare. Poco un disegno 
deità ina prima 'macchina differendole' 
( 1822 ), 
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di 


10 

REM 

************************ 


******** 


£0 

REM 

** 


30 

REM 

** 


40 

REM 

** 

ALBERTO & ANDREA 

50 

REM 

** 


60 

REM 

** 

BORI ANI 

70 

REM 

** 


75 

■ 

REM 

** 

ASTA CHE CADE PER 


C64 

** 


80 

REM 

** 


65 

REM 

************************ 


******** 


90 

REM 

** 

QUESTO PROGRAMMA UTI 


LIZZA 

! t* 

- 

se 

REM 

** 

LE NUOVE ROUTINES GRA 


FICHE 

** 


93 

REM 

** 

DI DANILO TOMA CC.C.C 


N14) 

** 


95 

REM 

************************ 


******** 

100 G=9.8/6!N=£0!PX=-140 

104 PRINT" ECLEAR3PRIMA ESPERIENZA 
s ,f ! GOSUB 500 

105 REM ************************ 
******* 

106 REM ** ASTA ORIZZONTALE 

** 

10? REM ************************ 
******* 

110 «-CLEAR : i-GRAF 6, 3 ! «-COL OR - 1 
115 GOSUB £83 

1E0 FOR T=0 IO li STEP -5 

130 XG- 18*T“ 1 19* VG=“ 1 - 1 *T*T +50 

140 Xi=XG-30*Xa=XG+30 

150 ^CQL OR 0ì«-DRAW *,*,*,*,*,* 

155 +COL OR ll^PLOT PX,PY,0 

160 4-DRAU X 1 , YG ,0 ,X£ f YG ,0 

165 PX=XI SPY-YG 

170 FOR R= 1 TO 50: NEXT R,T 

180 GET A^SIF A$= * w TKEN 180 

130 PRINT" C OLEARI 11 

135 «-TEXT 6, 14 : «-CLE AR :PRI NT UCLE A 
R ] SECONDA ESPERIENZA* GOSUB 

560 

136 REM ************************ 
******* 

197 REM ** ASTA VERTICALE 

** 

133 REM ************************ 

+ 


£00 «-GRAF 6, 3! GOSUB 283 
£10 FOR T =0 TO 11 STEP .5 
£20 X1=18*T-119: YG=-1 . l*T*T+6? 

£30 Y 1 =YG -30:Y£=YG+30 

235 «-COL OR 0:«-DRALJ 

£37 «-COL OR 1 s «-PLQT PX,PY,0 

240 «-ORALI XI ,Y1 ,0,X1 ,Y2,0 

245 PX=X1:PY=Y1 

250 FOR F = 1 TO 50SNEXT F 

£60 NEXT T 

270 GET A$J1F A$*“" THEN £70 
£75 PR 1 NT “[OLEARI" 

277 REM in*#***#* ********* ****** * 

£78 REM #* MURO & TERRA 

** 

279 REM ««c******#»##*##********* 
£80 «-TEXT 8,14: «-CLEAR : GOSUB 610: 

«-GRAF 6,3 
£81 GOTO 310 

£83 FOR A=- 150 TO -108: «-COL OR 
li+ORAW A ,33 ,0 ,A ,-99,0:NEXT 
£85 FOR A=-9S TO -83 STEP £!«- 
DRAW - 107 , A, 0,1 50, A, 0: hCXT 
£87 FOR A=-99 TO 33 STEP 6:«- 
COL OR 0 

£88 «-DRAW -150, A, 0,-108, A, 0s NEXT 
£90 FOR A «-93 TO 33 STEP t£s«- 
COL OR 0 

£9£ «-DRAW -1 40, A-12, 0,-140, A-B,0 
£94 «-ORALI -l£0,A-l£,0,-l£0,A-6,0 
300 «-ORALI -130, A-6, 0,-130, A, 0: ME 
XT 

305 RETURN 

307 REM **********$#4*11** ******* 
******* 

308 REM ** ■ ASTA ROTANTE 

** 

309 REM ************************ 
******* 

310 GOSUB 283:PX=-1£0:PY=0:T=0 
315 T=T+. 19 

3£0 XG=N*T-119: YG=-G*T*T+B4 
330 X=30*S IN <T) :Y=30*COS(T) 

340 «-COL OR 0 : «-DRAW 
350 «-COL OR 1 :«-PLOT PX,PY,0 
360 «-ORALI XG+X , YG+Y,0 ,XG-X , Y8-Y,0 
370 PX«XG«-X:PY=YG+Y 
380 IF PY>-83 AND PXC159 ANO 
<XG-XX159 AND <Y6-Y)>-83 
THEN 315 
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390 

GET 

mi IF 

A*=* 

" THEN 

330 

410 

T=0 





415 

T = T* 

, 1 




420 

XG=N*T-i 19 s 

YG--G*T*T+64 


455 

♦COL 

OR 1 : 

♦"PLOT 

XG,YG,0 


480 

IF 

YG >-83 

f\ND 

XG< 153 

THEN 


415 





490 

GET 

mi IF 

m= n 

11 THEN 

430 


495 REM 
49? GOTO 1000 

500 PR I NT "SI MULA2 1 ONE DI UN' ASTA 
ORIZZONTALE CHE CADE" 

505 PR INT"OX=V*T (MOTO RETI. UN 
IF,>" 

510 PRINT"DY=G*Tt2 (CORPO IN CADU 
TA LIBERA)" 

515 PRINT” (PREMI UN TASTO PER CON 
TINUARE ) " 

516 PRINT" (PREMI UN TASTO ALLA FI 
NE DEL DISEGNO)" 

520 GET A$: IF A$ = * " THEN 5H0 
530 RETURN 

560 PRINT" SIMULAZIONE DI UN'ASTA 
VERTICALE CHE CADE" 

565 PRINT'’DX=V*T (MOTO RETT. UN 
IF. )" 

570 PRINT"DY=G*Tt2 (CORPO IN CADU 
TA LIBERA)" 

575 PRINT" (PREMI UN TASTO)" 

530 GET A*!lF A«="“ THEN 530 
590 RETURN 

610 PRINT "SIMULA? IONE DI UN'ASTA 
CHE CADE RUOTANDO INTORNO AL 
SUO") 

612 PRINT" CENTRO" 

615 PR INT"DX=V*T (MOTO RETT. UN 
IF.)" 

620 PR INT"0Y=G#Tt2 (CORPO IN CADU 
TA LIBERA)" 

825 PRINT” PREMENDO UN TASTO VIEN 
E TRACCIATA LA TRAIETTORIA 
DEL SUO CENTRO" 

S30 GET A*!IF A$="" THEN 630 
640 RETURN 

1000 PRINT” ICLEAR1TERZA ESPERIENZZ 
A” m-TEXT 6,14 

1010 PRINT" VELOCITA' (V) "J 
1020 INPUT N 

1030 INPUT " GRAVITA’ (G) "JG 
1040 «-CLEARS+-GRAF 6 , 3 1 GOTO 307 
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Con BF Scuoia Europea 
di Vacanze 

La più grande organizzazione 
di vacanze-studio all’estero 

La EF organizza ad Hastings, una rì- 
dente cittadina della costa britannica, 
corsi di inglese e personal computer. 
Per 4 ore al giorno, esperti di personal 
computer di madre-lingua, ti introdur- 
ranno nel mondo dell’Informatica, op- 
pure accresceranno le tue conoscen- 
ze se ti senti già un esperto. 

Potrai creare cosi i tuoi programmi, o 
cambiarli con appassionati del tuo 
stesso corso. 

Chiedi quindi informazioni ai nostri 
uffici e... 
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COMMODORE 64 


I SOMERI 


Visualizzare sullo 
schermo la struttura 
molecolare di una 
formula qualsiasi, 
che essa esìsta in 
natura oppure no. 



*3 


J 


ennette anche di vedere in quanti mo- 
di possìbili gli atomi di una data sostanza 
organica possono Legarsi tra loro, di ve- 
der cioè rappresentati i cosiddetti isomeri 
di un dato composto chimico. 

Chimica, chimica! 

Chimica organica» dì che si tratta? 11 
nome porta a pensare che si tratti di una 
parte della chimica che tratta in partico- 
lare le sostanze organiche, cioè quelle so- 
stanze aventi una stretta relazione con gli 
organismi animali e vegetali. Anche l'e- 
sperienza sembrerebbe confermare que- 
sta idea. Molte sostanze* dette organiche, 
derivano da organismi animali e vegetali 
e sono di importanza fondamentale per 
Tatti vita vitale degli organismi stessi. 

Ma sarebbe del tulto inesatto ammette- 
re che le sostanze organiche si trovino 
esclusivamente negli organismi, oche tut- 
te le sostanze in cui si riscontrano siano di 
natura organica* In realtà si intendono 
oggi» come sostanze organiche» tutte 
quelle sostanze nella composizione delie 
quali sia presente il carbonio» indipen- 
dentemente dal modo di produrre n di 
estrarre quelle sostanze. 

Cosi, i termini * "chimica organica” e “so- 
stanze organiche” appaiono fondamen- 
talmente inesatti. E 1 piu esatto delini re la 
chimica organica come la chimica dei 
composti a base di carbonio* 

Il carbonio, come qualsiasi altro ele- 
mento chimico, può essere considerato 
come il singolo pezzetto di un puzzle. Per 
l'esattezza noi considereremo tre diversi 
elementi chimici* ossia tre diversi tipi di 
pezzetti di un puzzle: il carbonio* Tidro- 


geno e l'ossigeno- 

Questi tre “pezzetti” hanno caratteri- 
stiche diverse e naturalmente la caratteri- 
stica fondamentale del pezzetto di un 
puzzle e di potersi unire ad altri pezzetti. 
L 'atomo di idrogeno ha la caratteristica 
di potersi unire ad un solo altro atomo» 
quindi nel nostri* puzzle andrà a costitui- 
re una zona periferica: potrà cioè essere 
l'ultimo anello dì una catena di pezzetti* 
t/ atomo di ossigeno, invece* può legarsi 
ad altri due pezzetti oppure se preferite 
può Legarsi “doppiamente" ad un altro. 
L'ossigeno quindi può fare da “ponte" 
fra, due pezzetti- 11 carbonio invece (nei 
composti che trattiamo noi) può legarsi 
con ben quattro altri atomi e possiede 
anche la proprietà eccezionale di poter 
unire in catena continua o ramificata 
molti dei suoi atomi, dando origine ad un 
numero illimitato dì prodotti. 

Per meglio capire quanto detto sopra* 
osservate la figura 1 dove potete vedere 
un atomo di carbonio al centro e quattro 
atomi di idrogeno legali ad esso: il compo- 
sto cosi ottenuto si chiama Metano ed è il 
gas con il quale cuoce te la pasta asciutta. 
Nella figura Z invece potete vedere due 
atomi dì carbonio legati in catena ed at- 
torniati da sei atomi di idrogenu. Il lutto 
si chiama Etano, mentre se avessimo col- 
legato in catena tre atomi di carbonio 
avremo ottenuto il Propano, con quattro 
atomi di carbonio il fiutano e cosi via. 

Spesso succede però che due atomi non 
si leghino tra Loro con un solo legame* ma 
con due o tre legami: come net caso del- 
l'Acetilene, che vedete rappresentato in 
figura 3* Fino ad ora abbiamo analizzato 
casi semplici, ma provate a rappresenta- 
re un composto costituito da tre atomi di 
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carbonio» otto atomi di idrogeno ed un 
atomo di ossigeno. Scoprirete coaì che 
esiste piu di un modo per farlo» 

Con lo stesso numero e tipo di atomi 
potete infatti costruire ad esempio tre 
“puzzles 1 * diversi» Ad esempio l’Alcool 
Propileo di figura 4 che ha La stessa com- 
posizione dei l’Alcool I so propi lico di figu- 
ra 5 e dell’ Etere MetU-etiLko di figura 6» 
Questi particolari composti con medesi- 
ma composizione chimica sì chiamano 
Isomeri, 

T J parola “isomeria 1 ’ introdotta nel 
1H30 dal chimico Berzelius, indicava 
composti aventi uguale composizione» ma 
proprietà diverse. La chimica moderna 
invece preterisce utilizzare La parola 
“isomeri* 11 per i composti che hanno com- 
posizione chimica e proprietà uguali» 
mentre utilizza la parola “metanieri” 
per i composti che hanno composizione 
chimica uguale ma proprietà differenti. 
Per la chimica moderna, quindi, i compo- 
sti di figura 4 e di figura 5 sono tra loro 
isomeri, mentre i composti di figura quat- 
tro e dì figura 6 sono tra Loro metanieri. 
Noi, affezionati a Herzelius, continuere- 
mo ad usare IL termine isomeri per en- 
trambi i casi commettendo cosi 
un’imprecisione. 

Potete quindi ben immaginare ora 
quanti isomeri può avere un composto 
costituito da sei atomi di carbonio, dodici 
atomi di idrogeno e sei atomi di ossigeno 
come it Glucosio» zucchero che tutti noi 
abbiamo nei sangue» 

Potete altresì capire quanto difficile sia 
rappresentare in forma grafica tutte que- 
ste molecole, ma non preoccupatevi: que- 
sto programma potrà aiutarvi a farlo. 

Il programma 

IL programma in questione disegna in pa- 
gina grafica la cosiddetta “formula di 
struttura*' dì un qualsiasi composto costi- 
tuito da un massimo di dodici atomi di 
carbonio» ventisei atomi di idrogeno e sei 
atomi di ossigeno. Naturalmente, per di- 
segnare in alta risoluzione è necessario 
far uso delle ottime nuove roulines grafi- 


DUE MANUALI 
PER DIVERTIRSI 
CON COMMODORE 



R. DI Marcantonio, Commodore 64 - Ve 30 programmi pratici in 
basic. L. 6.000 

R. Di Marcantonio, A casa e a scuola con il Commodore ig. L. 6.000 
Due eccenOflali manuali d? programmi operativi, mafematìci. gestionali, di 
giochi per ohr vuole divenirsi e per chi vuole lavorare con le più diffuse macchine 
della Commodore. 

Rlchiedeto gratuitamente it catalogo de? mare programmi Centinaia di$poni5iir 
su cassetta o dtsoo. 

Per il Commodore M; 

Home Cele. Permeile di gestirà la eoo Labilità casalinga con un massimo dr 60 
coni - diversi, in parte fissi e in parte definibili dalr'uiente. l 40.000 (Di. 
Tetophon . Una potente rubrica leietoniea 0' ogni soggetto e ardi nnawe: Momi- 
fiàhva Indinao. CAp, prefisso, letetono. note. L_ *0 j0 000 (O). 

Tramite urVinleriaccia il computer collegato al telefono comporrà automatica- 
mente il numero ricercato. L. 30.000 

Archivio rivi al*, il programma consente di ardtuviare l'indice «variate resi me, 
permettendo ricerche dati secondo tra gradi di anaiiticte. t_ 30.000 (□) 
GaneralAfl cartfMpH. Consente <Ji rigenerare il set di caratteri del Commodore 
64 . t caratteri cosi generati possono essere memorizzati per poi essere impiegati 
in giochi e utility di vostra creazione 1_ 1 2,000 (Q}. 

CBM Catculator. Il programma trasforma il vostro CBM 64 in una poienle 
calcotatrioo dotata di ben quatino memorie. L 10 000 (Di, 
a**Ugn* rrté^ÉzziiiD. It pfograflima gestisce un magazzino d< 1 .000 articoli 
diversi, dassiticatili secondo van criien. L. 40,000 (D). 

Slot muchi ne, bomber, tutori*!* , «tujwkmi, potenza di un binomio, in 
blocco L_ 0.500 (DI. 

Dieta, g*stkma blbitotao*. ipriti ^*ii*iaior F «tttviftof* tivti fumior», 
generi torà *&ch*tt*. In blocco L 1 1,500 D/N’ 1 

Caratteri MPS 001. oermeRe di creare in modo semplice e veloce nuovi carane^ 
ri per la WPS tmi L 12.DÙ0 fD/N) 

caratteri MPS eoa pormene di creare nuova csraRen per la mfs 00® t, 15,000 
(OZISI). 

Por II Comm odora tfli 

Cafcoletrìce, pagella, equutonl, pot binomio, ftf*f*4* tel eg u ide*, fri 
blocco U 15.000 fD/Nl. 

Simon, prptogki, mu*Jc macMn*. *tet m*ch)n* . In blocco L 15.000 (D/N). 

Vocabolario uni versale. Consente la gesuon* di un vocabolario unrvensaie. La 
seconda lingua può essere scelta darrutente. Si possono creare quindi vari 
archivi in varie lingua. L. 1 5.000 (Dì, * 

Legenda^ D = disco, Ni = nastro 

Nella neh: osta v a specificalo se si desidera disco 0 cassetta. I prezzi seno IVA 
esclusa . Spedizione contrassegni | + L 2 000 spese postale) o richiesta median- 
te vaglie postale (senza spese postati]/ 
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che di Danilo Torna pubblicati! sul nume- 
ro Quattordici di Commodore Computer 
Club. Caricate quindi le nuove ro utili vs 
di Toma, lanciatele, e poi caricate in me- 
moria il programma Isomeri. 

iS e avete eseguito tutto questo corretta - 
mente, il programma vi chiederà quanti 
atomi di carbonio «mi» presenti nel com- 
posto che volete vedere, seguirà poi la 
stessa domanda per quanto riguarda l'i- 
drogeno e l k ossigeno. Se i dati da voi digi- 
tati escono dai limiti prefissati il compu- 
ter segnerà Terrore e vi ripeterà la do- 
manda, altrimenti proseguirà chiedendo- 
vi la dimensione delia molecola (perche 
alcu ne molecole più complesse potrebbe- 
ro uscire dallo schermo, mentre altre po- 
trebbero risultare troppo piccole e poco 
leggibili). 

A questo punto seguirà una pausa piu o 
meno lunga a seconda della complessità 
della molecola che avete richiesto; la pau- 
sa sarà brevissima per un composto come 
il Metano o T Acetilene, mentre sarà un 
po' più consistente nel caso ad esemplo, 
del Glucosio. Una volta terminata l'ela- 
bora /ione che consiste pri nei palme lite in 
un riempimento di varie matrici In modo 
pseudocausale, il computer passerà in ai- 
ta risoluzione e disegnerà la molecola 
richiesta, 

ÀI disegno delta molecola seguirà la 
stampa in alta risoluzione di una breve 
dicitura che vi indica la possibilità dì ri- 
chiedere un altro isomero della stessa mo- 
lecola, di vedere la stessa molecola con 
un'altra angolazione oppure di tornare 
al Tini zio del programma. Provate ora ad 
inserire la richiesta della molecola del 
Melano rispondendo “T’ alla richiesta 
dei numero di atomi di carbonio, “4" per 
il numero dì atomi di idrogeno e “■O” per 
l'ossigeno, 

igiate **4" per la dimensione della 
molecola e quasi immediatamente com- 
parirà il disegno della formula di struttu- 
ra del Metano dove il quadratino pieno 
rappresenta V atomo di carbonio ed I qua- 
dratini vuoti gli atomi di idrogeno, men- 
tre se fossero presenti atomi di ossigeno 


H C H 


H 

Fintini 1; Metano 


H H 

H C c H 


H H 


Figura 2; Etano 


verrebbero rappresentati come 
cerchietti. 

Naturalmente, se a questo punto ri- 
chiedete un altro isomero il risultato sarà 
sempre Lo stesso poiché non possono esi- 
stere isomeri della molecola di metano. 
Lo stesso effetto nullo avrà la richiesta di 
un 1 al tra angolazione e questo per il moti- 
vo evidente che la molecola di Metano è 
simmetrica. Inserite ora la richiesta per 
la molecola di Acetiline con due atomi di 
carbonio, due di idrogeno e zero di ossige- 

i 

no ed otterrete il corrispondente di figura 

Non spaventatevi se talvolta gli atomi 
di idrogeno appariranno come aventi due 
legami, questa e solo un'illusione data 
dalla bì -dimensionai ita della figura. In- 
fatti l'idrogeno si trova solo sovrapposto 
ad un altro legame. Talvolta potrebbero 
apparire righe senza senso apparente: 
questo fenomeno è dovuto alla eccessiva 
complessità della molecola richiesta. Po- 
tete ora provare a richiedere un isomero 
(o metamero se preferite) della molecola 
del Glucosio rispondendo 44 6" per il nu- 
mero di atomi di carbonio, "I2 Tf per gli 
atomi di idrogeno e "6" per quelli dì 
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Figura 3: Acetilene 
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ossigeno. Otterrete cosi' una molecola 
che non ha niente a che fare con la mole- 
cola di Glucosio che trovate sui libri di 
chimica, e questo perchè esiste un nume- 
ro grandissimo dì isomeri di questo 
composto. 

Infatti, se provate a premere **1” per 
richiedere un altro isomero potete ottene- 
re una molecola completamente diversa 
dalla prima che però mantiene invariato 
il numero e il tipo di atomi. Non sperate 
troppo di ottenere la molecola reale del 
Glucosio continuando a richiedere isome- 
ri o altre angolazioni perchè dovreste es- 
sere molto fortunati per poterlo fare! 

Se pero avete qualche anno libero che 
non sapete come utilizzare, potete sempre 
provare a contare il numero di isomeri 
possibili di una molecola con dodici atomi 
dt carbonio, ventisei di idrogeno e sei di 
ossigeno. Scrivetemi per qualsiasi proble- 
ma di malfunzionamento del program- 
ma, che per altro ha già funzionato egre- 
giamente in versioni diverse anche su per- 
sonal computer differenti dal buon vec- 
chio 64, 

Luca <r4lur/i 
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100 REM ************************ 
****** 

120 REM * ISOMERI 

* 

130 REM * 

* 

140 REM * COMMODORE 64 

* 

160 REM * LUCA 3ALUZZI 

* 

23® REM * 

* 

240 REM ************************ 
****** 

250 REM * IL PROGRAMMA RICHIEDE 
L’USO* 

260 REM * DELLE NUOVE ROUTIMES G 
RAF I - * 

270 REM * CHE 01 D . TOMA <#14 C.C 

. C . > * 

280 REM ************************ 
****** 

230 DIM CP< 15,2) ,0P<6,2> ,HP<34,2 
> ,C( 15,4) ,0(6,2) 

300 +-TEXT 0,11! POKE 53280, 0:PR IN 
T " ICLEAR J " 

310 INPUT "NUMERO ATOMI DI GARBO 

NI □ *;ncx 

320 INPUT "NUMERO ATOMI DI IDROG 
El-10 " J NH7, 

330 INPUT "NUMERO ATOMI DI OSSIG 
ENO "; NO’/. 


340 INPUT "DIMENSIONI DISEGNO <2 
,3,4) "fVY. 

350 IF NCX<1 OR I^4X<2 OR \JÙY. 
<0 OR NCX>15 OR N0X>6 TH 
EN 380 

360 IF I NT C NHX/2 ) < >NHX/2 OR NH 

x>2*ncx+2 then 3so 

370 GOTO 400 

3B0 PRINT ” CONTROLLARE I DATI I 
N INGRESSO * i REM 7 SP 

390 PRINT " 0 = < C <16 , 2=< H <=2 
*C+2 , 0=< 0 <7 "SGOTO 310 
400 IF VY.<£ OR VY.> 4 THEN 340 

410 VX=VX* 10 

420 EU = < <2*NCy.+2)-r«y;)X2 
430 FOR 1=1 TO NCX 

440 FOR J = 1 TO 4*.C( I ,J)=0!NEKT 

J, I 

450 FOR 1=1 TO NOX 

460 FOR J=1 TO 2:0< 1 , J >=0 :PEXT 

J,I 

470 HU=0!OU=0 :UN=0s SI =130! 62=70 
430 IF NCX= 1 THEN 570 
490 C< 1 , 1 )=£«C<£ , 1 )=1 s IF NCX=2 
THEN 570 

500 FOR 1=3 TO NCX 

510 X=1NT<RND< 1 )*<I-1> MI 
520 IF C <X ,2 ) =0 THEN C<I,l)=Xi 
C <X ,2 ) = 1 S GOTO 560 
530 IF C (X ,3 ) =0 THEN C < 1 , 1 ) =X : 

C<X,3) = Is GOTO 560 
540 IF C <X ,4 ) =0 THEN C(I,I)=X: 

C <X ,4 > = I : GOTO 5E0 
550 GOTO 510 
560 NEXT I 

570 IF NO Y.~<à THEN 630 
580 FOR 1=1 TO NOX 
5S0 X = INT <RND <1 ) * <NCX+ I - 1 ) ) + 1 
600 IF X<=NCX THEN 630 
610 GOTO 630 

620 0 <X-NCX,2 ) =- 1 : 0 <1 , 1 > = -<X-NCX) 
SCOTO 680 

630 IF X< =NCX THEN 640 
640 IF C (X ,£ ) =0 THEN C(X,2)=-I 
;0< I ,1)=X SGOTO 680 
650 IF C (X ,3 > =0 THEN C(X,3)=-I 
: 0 < I , I ) =X 3 GOTO 680 
660 IF C (X ,4 ) =0 THEN C<X,4)=-I 
: 0 < 1 , 1 ) =X : GOTO 680 
670 GOTO 530 
630 NEXT I 
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690 IF UN=EU THEN 850 
700 IF NCX= 1 THEN 750 
710 GOSUB 1060 

720 IF C <X 1 ,X2 ) =0 AND C<Y1,Y2>=0 
THEN 740 
730 GOTO 750 

740 C<Xi ,X2)=Yl *C<Y1 ,Y2 >=X1 *UN=UN 
4- 1 : IF UN=EU THEN 850 
750 IF NOX=0 THEN 710 
760 GOSUB 1120 

770 IF C<X1,X2)=0 AND 0(Y1,2)= 
0 THEN 790 
780 GOTO 800 

790 C<X1 ,X2)=-Y1*0<Y1 ,£)=X1 :UN=UN 
+ I : GOTO 690 

800 IF NOX=l THEN 690 
810 GOSUB 1160 

820 IF G<X 1 j2 ) =0 AND 0<Y1 ,£>=0 
THEN 840 
830 GOTO 850 

840 0<X1 ,2>=-YU0<Yl ,2>=-Xl ìUN=UN 
+ 1 : GOTO 690 
850 IF NCX= 1 THEN 
HU=HU+1 

880 FOR 1=1 TO NCX 
870 FOR J=£ TO 4 
880 IF C<I,J>=0 THEN C<I,J)=-< 
101 +HU) *HU=HU + 1 
890 NEXT J,I 

300 IF NOX=0 THEN 350 
910 FOR 1 = 1 TO NQX 
920 IF 0 < 1 , 2 ) =0 THEN 0<I,2>=-< 
10 1 +HU > i HU=HU+ 1 
330 NEXT 1 

940 IF NHXOHU THEN 430 
950 GOSUB 1200 
860 GOSUB 1950 
370 GOSUB £300 


980 

GEI 

IF 

* rt 

THEN 

990 

IF 


THEN 

950 

1000 

IF 

M* n I ’ 

THEN 

430 

1010 

IF 

ft$ = 1l R 11 

THEN 

300 


10£0 GOTO 980 

1030 REM ************************ 

******* 

1040 REM * CALCOLA I PARAMETRI CA 
SUAL I * 

1050 REM ************************ 
******* 

1060 X 1 = I NT < RND < I ) *NCX ) + 1 
1070 Y1 = INT<RMK 1 >*NCX)+1 


i 


1080 IF Xl=Yi THEN 1060 
1090 X£ = INT <RND < 1 ) *3) +£ 

1100 Y2= INT<RND< 1 >*3)+£ 

1110 RETURN 

1120 X1 = INT(RM)< l)*NCX)+i 
1130 Y 1 = I NT ( RMD ( 1 ) *NGX ) + 1 
1140 X2=INT<RND< 1 )*3)+2 
1150 RETURN 

1160 X 1 = INT (RND < 1 ) tNO/O ♦ 1 
1170 Y1 = INT <RMJ< 1 >*NQX)+ I 
1180 IF- XI = Yt THEN 1180 
1190 RETURN 

1£00 FOR 1=1 TO NCXiFOR J=0 T 
0 £ 


1210 CP< I ,J>=0:NEXT J,I 
1220 IF NOX=0 THEN 1260 
1230 FOR 1 = 1 TO NQX: FOR J =0 T 
0 £ 

1240 OP(l,i)=0 
1250 NEXTJ , 1 

1260 FF=0!CP<1,1)=1£05CP<1,£)=75 
1270 CP <1,1>=120 
1280 FOR 11=1 TO NCX 
1£90 IF CP < 1 1 ,0 > =0 THEN 1320 
1300 NEXT II 
1310 GOTO 1610 
1320 FOR I = I I TO NCX 
1330 IF CP< I ,0> = 1 OR CP<I,1>=0 
THEN 1590 

1340 XX = INT (RFC < 1 ) *4) 

1350 FOR J=l. TO 4 
1360 KK=0 

1370 IF XX =0 THEN X=CP < I , 1 ) +V%* 
Y=CP< 1 ,2) 

1380 IF XX=1 THEN X=CP< I , 1 > ! Y»C 
P < 1 ,2 ) -VX 

1390 IF XX =£ THEN X=CP< I , 1 >-VX: 


Y=CP< I ,2) 

1400 IF XX=3 THEN X=CP< 1 , 1 > ! Y=C 
P(1 ,2 >+VX 
1410 XX=XX+1 

1420 IF XX=4 THEN XX =0 
1430 IF C(I,J) >= - 100 THEN 146 
0 


1440 HP (ABS <C< I ,J>+100> , 1 > = < <X -CP< 

1.1) ) *7/20 ) +CP < I , 1 > 

1450 HP<ABS<C<I , J ) ♦ 1 00 ),£) = << Y-CP < 

1.2) )*7/20)+CP< 1,2) tGOTO 157 
0 

1460 TX=X: iTY=Y:FF=0 ì GOSUB 1810* IF 
FF = - 1 ANO KK<3 THEN KK = 
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4 


KK + U6QTD 1370 

1470 JF FF=~1 AND KK>8 THEN 1 
200 

1430 IF N0X=0 THEN 1510 
1490 IF C<I,J)>0 THEN 1540 

1500 IF C<I,J><0 AND C<1,J)>-10 

0 A ISO OP < AB5 <C<l r J>)/l)>0 

THEN 1570 

1510 IF CCJ,J><0 AMD C<I,J)>-10 

0 THEN 1530 
1520 GOTO 1540 

1530 OP < ABS <C< 1 ,J>>0 >=XsOPCABS<C< 
I , J > > , 2 > S Y p GOTO 1570 
1540 IF CP(C<I,J),1)>0 THEN 157 
0 

1550 CP<e< I ,J>, 1 >=X 

1560 CP<C< I ,J> ,2)=Y 

1570 rCKT J 

1530 CP<I,0>»1 

1590 NEXT I 

1600 GOTO 1280 

1610 IF NGX=8 THEN 1800 

1620 FOR 1=1 TO NO* 

1630 IF OP < I , 1 > >0 THEN 1730 
1640 FOR J=1 TO NOY. 

1650 IF J= 1 THEN 1720 

1660 IF 0<J, 1)0-1 THEN 1720 

1670 ORCIO >=0P( JO> 

1630 0P< I,2>OP<J„2>+20 

1690 TX=0P(IO>:TY=DP<I,2):FF=t 

1700 GOSUB 1310 

1710 IF FF=-1 THEN 1200 

1720 NEXT J 

1730 IF 0(1,1 >>=-100 THEN 1760 
1740 HPCABSCOflO > + 100>O )»0R( I O > 
+7 

1750 HP (ABS (OC 1 , 1 >+100) ,2)=0P< I ,2) 
1760 IF OC 02 >> = -100 THEN 1790 
1770 HP (ABS (0 < 1 ,S)H00) O )*0P< I O > 
-7 

1780 HPCABSCOC I ,£ ) + 100 > ,2 > =0P < I ,2) 
1780 NEXT I 
1800 RETURN 

1310 FOR K= 1 TO NC % 

1820 IF K=C (I, J> AMD FF=0 THEN 
1340 

1830 IF TX*CPCKO> AMD TY=CP<K, 
2) THEN FF *= - 1 * GOTO 1910 
1840 NEXT K 

1050 IF N0^=© THEN 1910 
1860 FOR K= 1 TO N07. 


1870 IF K=ABS <C < l ,J> > AMD FF-0 
THEN 1300 

1830 IF K*t ANO FF = 1 THEN 190 
0 

1890 IF TX=0P<KO> AND TY=QP<K, 
2) THEN FF = -UGGTO 1910 
1900 NEXT K 
1310 RETURN 

1920 REM ********* *************** 

1930 REM * DISEGNA LA MOLECOLA 
Ut 

1940 REM ************************ 
** 

1950 «-CLEAR 
I960 «-GRAF 0,1 
1970 «-COL' OR 1 
1980 FOR 1 = 1 TO NCX 
1390 FOR J=1 TO 4 
£000 IF C<I,J>>=-100 THEN £050 
£010 G1=BP<ABS<C( I ,J>+100) , 1 >-Sl 
£020 G£=HP<ABS<C< I , J)+ 100 > ,2>-S£ 
8038 «-DRAW CPtl,l )-Sl ,CPCI,£>-S2,0 
,G1 ,G2,0 
£040 GOTO £350 

£050 IF C<I,J>>0 THEN £180 
£060 FF*0* FDR K=1 TO 4 
2070 IF K=J THEN 2030 
£080 IF C ( I ,K >=C ( I , J > THEN FF = - 
1 

2090 NEXT K 

£100 Gl=OP(ABS<Ca ,J> ) , 1 )-Sl 
2110 62=0PCABSCC< I ,J> > ,2>-S2 
2120 «-DRAW CP( I ,1 )-Sl ,CP (1 ,2>-S2,0 
,G1,G2,0 

2130 IF FFO-1 THEN 2170 
£140 G 1 *0P C ABS (C(I,J)),l>+3-Sl 
£150 G£=0P<ABS<CU,J)),2>+3-S2 
£160 «-DRAW CP( 1 , 1 J+3-S1 ,CPC 1 ,2)+3- 
S£,0,GI ,G£ ,0 
2 170 GOTO 2350 

2180 FF=0slF CdjJXI THEN 2350 
2190 IF C< I ,J)<1 THEN 2350 
2200 FOR K= 1 TO 4 
2210 IF K=J THEN 2230 
2220 IF CU ,J)=C< I,K> THEN FF=F 
F + l 

2230 NEXT K 

£240 G1*CP(C<I,J),1)-S1 
2250 G2=CP<C<1,J),£)-S2 
2260 «-DRAU1 CP(1 , 1 )-Sl ,CP< 1 ,2)-S2,0 
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,61 ,68,0 

££70 IF FF < -0 THEN 83Ì0 
£880 GI=CP<C< i ,J>, D+3-S1 
££30 6£=CP <C t ! , J ) ,8 ) +3 -SE 
£300 «-DRAW CPU ,1 >+3-31 ,CPC I ,2>+3- 
S£ ,0,61 ,62,0 

8310 IF FF < >£ THEN £350 
£380 G 1 -CP CCU,J>,1) -3-5 1 
8330 G£=CP CC C I , J > ,2 > -3-S£ 

£340 H3RAUI CP ( I A > -3-3 1 ,CP U ,£ > -3~ 
$2 ,0 ,G I ,6£ , 0 

£350 NEXT J 

£360 NEXT I 

£370 IF NO*=0 THEN £580 
£380 FOR 1 = 1 TO NQ 'A 

£390 FOR J = 1 TO 8 

£400 IF 0 C I , J ) >0 THEN £506 
£410 IF Q U , J > > = - 180 THEN £460 
£4£0 6 1 =HP < ABS <0 ( I , J ) + 100 > , 1 > -Si 
£430 G2“HP <ABS <0< I , J ) +100) ,£ >-S2 
8440 HDRHUJ ORCI , 1 >“S1 ,OP<I,£)"S£,0 
,61 ,G£ ,0 
£450 GOTO £500 

£460 IF GCI,J)>=0 THEN £500 
£470 6 1 =QP < BBS ( 0 < I , J ) > , l ) -S 1 
£480 6£-0P ( ABS <0 C I , J ) ) ,£ ) -S£ 

£490 4-DRAUI QPU , 1 >-Sl ,OPU ,£>-S£,0 
,0P ( ABS CO < I ,J) ) , 1 >, 0P<ABS<0< I 
,J)>,£),0 
£500 NEXT J 
£510 NEXT I 

£580 QQ = 1 5 FOR 1 = 1 TO HCY. 

£530 FOR 1 = 1 TO NC a A 
8540 X=CP<J,Ì) 

£550 Y =CP < I , £ ) 

8560 GOSUB £750 
2570 NEXT I 

£580 IF NOX=0 THEN £650 
£590 QQ=2 : FOR 1 = 1 TO NQY. 

£600 FOR 1 = 1 TO mV. 

£610 X=OPU ,1 > 

8880 Y=OP < I ,£ ) 

£630 GOSUB £750 
8640 FEXT I 

£650 GQ=3I FOR 1=1 TO NH% 

£660 FOR 1=1 TO NHK 
£670 X=HP < I , 1 > 

£680 Y=HP< I ,£ > 

£690 GOSUB 8750' 

£700 NEXT 1 
£710 RETURN 


2720 REM **M******************* 

¥ 

*** 

2738 REM * DISEGNA I SINGOLI ATOM 
I * 

2740 REM ************************ 
*** 

2750 IF QQOl THEN 2790 

2760 FOR L=Y-3 TO Y+3 
2770 4-DRAW X-3-S1 ,L-S2,8,X+3-Sl ,L- 
S2,0 

2780 NEXT L 

£790 IF QQ<>2 THEN 2810 

2800 «-CIRCLE X-S I , Y-S2 ,0,4,4 
£810 IF QG<>3 THEN RETURN 

2820 «-DRAU X-2-S1 ,Y+2-S2,0,X+2~Sl , 
Y+2-S2,0 

2830 «JRAUI X+2-S1 , Y+2-S2 ,0 ,X+2-S 1 , 
Y-2-S2,0 

2840 4-DRAU X+2-SI ,Y-2-S£,0 ,X-2-S 1 , 
Y-2-S2 ,0 

2858 *-DRAW X-2-S 1 ,Y-2-S2 ,0 ,X-2“S 1 , 
Y+2-S£,0 
2860 RETURN 

2870 REM ************************ 
***** 

2888 REM «SCRIVE IN ALTA RISOLUZI 
ONE * 

2890 REM ************************ 
***** 

2900 PRINT * ICLEAR 1 I - ISOMERO" 
2910 PRINT "A - ALTRA ANGOLAZ IQf'E " 
2920 PRINT "R - RITORNA* 

2930 J=1 1 iK*0: GOSUB 2970 
2940 J=21 : K =40 i GOSUB 2970 
2950 J=ll sK =80! GOSUB 2970 
2960 RETURN 

2870 POKE 56334, PEEK<56334) AND 
254 

2980 POKE 1,PEEK<1) ANO 251 

2990 P= 1024 ! PP=8 

3000 KK =53243 s J J =57344 

3010 FOR R=K TO J+K 

3020 CH=PEEK CP+R ) 

3030 FOR T= 1 TO PP 

3040 CG=PEEK (KK+CH*PP + < T- 1 ) ) 

3050 POKE JJ+R*PP+<T-1 > ,CG 
3060 NEXT T,R 

3070 POKE Ì,PEEK<J) OR 4 

3080 POKE 56334, PEEK (56334) OR 
I 

3090 RETURN 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Difatti sembrano tutti uguali finche non 
si osserva con attenzione il jacket. Qui 
termina V uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono,., in poche parole si aprono. 


QU ALTRI DISCHETTI 

chinai un punto qui, 
un punlu La lasciano 
gran parli: dei 
lembi Aperti. 


DISCHETTI MEMQREX 

lembi ccmplriameTrte 
i&kltìli so Luna 
la supcrticic. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy dìsc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio f » 

- ricordate: non lutti i dischetti MMlMÉd 
sono uguali,,. 

Memorex vi mette al 

riparo da qualsiasi lOviifJÉBS 

inconveniente. r|HJ 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati . Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“Soiid-Scam Bonding”. 

Con questo sistema ogni singolo 
millìmetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli piu rigidi e piu 
resistenti. 


è importante 


BUFI FLGHJGH 5-M EIUQREX S-P A . 
Dmtion-0 Computar Madia 
Via Ciro m notti . 14 Tel. Odiassi 
20129 MILANO Mi 


A Burroughs Company 
















eseguono ima somma per ciascuna lettu- 
ra dei DATA, Supponiamo che il pro- 
gramma (solo dimostrativo; non serve a 
nulla) sia il seguente: 

KX1 FOR I = l TO 10 
HO READ X; PGKE 10000=1, X 
120 NEXT 

130 DATA 1*2*3,4*5,6,7,8,9,10 

Se nella riga 130 invece di scrivere il 
numero 8 scrivi, ad esempio, il numero 9, 
potresti provocare gravi malfunziona- 
menti nell'esecuzione del programma. 
Per evitare ciò si introducono un paio di 
righe di controllo simili alle seguenti: 

99 A =0 

Iti A=A+X 

125 1FA055THEN 

PRINT“ERRORE”>END 

La somma dei dieci valori è, infatti* pari 
a 55 ed un eventuale errore di digitazione 
non “passa 1 " attraverso la riga 125. 

E' ovvio che questo sistema non forni" 
sce una garanzia al 100% nei casi in cui, 
ad esempio, si commettono due errori di 
trascrizione l uno in eccesso c l'altro in 
difetto. II sistema descritto serve, co- 
munque, solo per consentire ai lettori di 
riviste di digitare correttamente i listati 
pubblicati. Una volta corretti eventuali 
errori* le linee di controllo possono be- 
nissimo essere cancellate. 

fC i V « 


C-64 Partante 

Sono in possesso del programma Sam 
in grado di far parlare il C-64 ma non 
sono in grado di furio funzionare* Potre- 
ste aiutarmi? (Massimo GalUnaro - 
Padova ) 

• Non possediamo il Libretto di istruzio- 
ni del programma che citi. Hai provato, 
comunque, a “sentire’ " la cassetta che la 
rivista COMMODORE CLUB (speciale 
L. 10G00) ha pubblicato col titolo “LA 
VOCE"? Questa fa parlare il tuo C-64 in 
italiano! 



Monitor b/n Commodore 

O Perchè la Commodore non commer- 
cializza monitor in bianco- nero? (Massi- 
mo Nitrì - Ciniselb Balsamo) 
m E' probabile che i motivi siano solo 
commerciali ( = guadagnerebbe di me- 
no...) oppure perchè sarebbe un contro- 
senso vendere monitor b/n quando la 
produzione è relativa a computer con 
uscita a colori... 

Jì \ 

1 ■’S. i I \ fi . Il M ■ ■ ■ ■ I | ■ Il ■ Il 


I>a nastro a disco 

□ Come fare per trasferire su disco i file 
dì un programma che utilizzava il regi- 
stratore? Nonostante i molti tentativi il 
drive Lampeggia continuamente! {Mauri- 
zio Gregari - Pesaro) 

* Supponiamo che t file siano corretta- 
mente aperti secondo le direttive indica- 
te nel libretto d istruzioni (dloè [S*W] per 
scrivere e fS,R] per leggere) e che non vi 
siano confusioni tra file aperti per legge- 
re usati per scrivere e viceversa. L’errore 
che più comunemente si commette cor- 
sistc ne ILaggi ornamento del file. Se, in 
altre parole, carichiamo da disco il file 
denominato ARCHIVIO (registrato in 
precedenza), ne elaboriamo alcuni dati e 
tentiamo di riscrivere i! file così modifi- 
cato con lo stesso nome "ARCHIVIO 1 ', 

. il drive si rifiuterà di eseguire l'ordine 
perchè sullo stesso disco esiste già un file 
(quello “vecchio") con lo stesso nome. 

Le operazion i da effettuare per aggior- 
nare un file su disco sono dunque le 
seguenti: 

* Caricare in memoria l'intero file. 

* Effettuare le modifiche che si 
desiderano. 


* Cancellare il file “vecchio” su disco 
(mediante la sintassi per effettuare Lo 
“scratetT)* 

* Scrivere ÌI file elaborato dal computer 
con lo stesso nome dì prima. 

In effetti si può ricorrere alla particola- 
re sintassi che, utilizzando il carattere 
chiocciolina ( ), permette dì scrivere il 

file nuovo su quello vecchio dotato dello 
stesso nome. Il ricorso □ tale sistema, 
però* provoca a lungo andare vari incon- 
venienti nella Directory del disco. 

Se, comunque, i! drive lampeggia e 
non sai il perchè, cioè dovuto alla super- 
ficie con cui hai scritto il programma. 
Ricorrendo* infatti, ai consigli riportati 
sul manuale* avresti dovuto inserire la 
subroutine che consente dì effettuare la 
verifica dopo ciascuna operazione di let- 
tura o scrittura. Per esser piu chiari, do- 

•i u 

po ogni istruzione di tipo GET * IN- 
PUT , PRLNT è indispensabile ese- 
guire una subroutine de! tipo che segue: 
600(X) INPUT 15, A + B$,C,D 
60010 1F A< > 0 THEN PR1NT 
A,B$*C h D: END 
60020 RETURN 

Un valore di “A" diverso da zero, in- 
fatti, indica malfunzionamenti nel “col- 
loquio" coi drive. E' ovvio che prima di 
accedere alla suhroutine è indispensabile 
aprire il file di controllo N.I5. Nel caso 
esaminato il computer avrebbe risposto 
FILE EXIST e ti sarebbe stato più sem- 
plice individuare Terrore, 





Linguaggio macchina 

C C*è qualche lesto che permetta di av- 
vicinarsi al mondo del L-M*? Possiedo 
alcuni monitor L.M.* ma non so come 

usarli, (Vincenzo Arcidiacono - Milano) 
* Affrontiamo sistematicamente, da un 
po' di tempo* argomenti concernenti il 
L. M.* il Kernal* ed altre cose del genere, 
Tra un po’ presenteremo un’iniziativa dì 
cui sarai certamente soddisfatto, Per il 
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EASY COMPUTING ti offre la piti vasta gamma 
di prodotti origina li per il COMMODORE 64, tra- 
dotti In Italiano, per un Immediato utilizzo, sia 
nel campo professionale che nel tempo libero. 
Con II vantaggio di ricevere tutta la documen- 
tazione relativa al programma che ti Interessa 
direttamente a casa tua. Basta compilare il cou- 
pon o scrivere direttamente a EASY COMPU- 
TING - Via A, Bertoni 24 - SOI 57 Firenze. 

Questi l principali programmi che EASY 
COMPUTING ha selezionato per te: 
SUPERSOFT - music master, busi- 

CALC 2, BUSICALC 1, TOOLKIT, VICTREE, 
ZOOM, INTEROICTOR PILOT, MIKJ70 AS- 
SEMBLER e una Scelta di VIDEOGAME* 
Intelligenti, 

ABACUS - ZOOM PASCAL, SUPER DISK 
UTILITIES, SCREEN GRAPHICS, ULTRABA- 
SIC, SYNTHY 64, VIDEOBASIC GRAPHICS 
DESIGNER, TAS, CADPAK, CHARTPAK. 

VIZA - VIZASPELL. VIZAWRITE* 

ANfROG - Per la prima volta in Italia de- 
cine di videogame! originali, considerati 
come J più elaborati e affascinanti dei mer- 
cato europeo, 

OXFORD PASCAL, HARDCOPY. 



HARDWARE » SUPERSKETCH, VIDEO GRAPHIC DIGITfSER 
LJGHT PEN, 4 SLOT MOTHERBOARD. 

INTERFACCE; SERJELIIUJURS , SERIELfNK, CENTROSERIAL, 
PRINTLINK, etc. 


VIA A. BERTONI 24 FIRENZE 



Sano Intera salo a ricevere II cataloga generale EASY COMPUTING, gra 

. * _ * 

(ultamente e senza impegno, al seguente Indirizzo: 

Nome 




Cognome 

indirizzo 


Città 






momento, purtroppo, accontentati di dò 
che vedi sulle nostre pagine. 



v> 


Fotografìe col C-64 

□ Sui N. 15 di C.C.C, affermate che è 
possibile* ricorrendo ad una telecamera 
ed alla pagina grafica in alta risoluzione, 
digitalizzare una fotografia coi C-64 in 
modo da poterla “richiamare’* a volontà* 
per esempio per fondali di videogiochi. E 1 
possibile questo collegamento con Ja tele- 
camera di un videoregistratore? (Massi 
miliario Biancofiore- Bari) 

« Purtroppo la sola telecamera non è 
sufficiente. E’ necessario un apparecchio 
in grado di effettuare lo scanning (esame 
riga per riga) del [immagine ripresa ed il 
conseguente trasferimento nella memo- 
ria dei computer. Se qualche lettore co- 
nosce il nome di una Ditta che commer- 
cializza un prodotto det genere saremo 
ben lieti di pubblicarlo. Dubitiamo, pe- 
rò, che l'operazione risulti economica- 
mente affrontabile. 


che sia una vergogna? (Vincenzo Serotti - 
Firenze ) 

■ Sì. Non nascondo che, in casi come il 
tuo, mi piacerebbe vedere del rossore 
(anche su una sola guancia). Solo per 
verificare la presunta appartenenza alla 
specie umana dei responsabili di taluni 
centri di assistenza. 



Àncora libri 

□ Potreste consigliarmi alcuni libri per 
sopperire alla carenze del manuale di cui 
è dotato il mio Commodore 64? (Antonio 
Leonetti - Muterà) 

» Tra breve diffonderemo, come nume- 
ro speciale della rivista su cassetta Com- 
modore Club, un corso di Basic proprio 
per venire incontro ai principianti. Ti 
consiglio, comunque, di seguire con at- 
tenzione tutti gli articoli che pubblichia- 
mo e che. come puoi notare, sono in 
grado di soddisfare sia gli esperti sia colo- 
ro che. come te. possiedono da poco un 
calcolatore Commodore. 



Pezzi di ricambio 

□ Dopo 20 giorni dall'acquisto (gennaio 
84 non 85) la testina di scrittura della mia 
sstampante MPS80I sì è rotta e finora 
non è stata riparala a causa della man- 
canza del pezzo di ricambio. Non pensate 


Aprire un club 

□ Starno un gruppo di amici e avremmo 
intenzione di aprire un club di utenti dei 
Commodore 64. Potreste aiutarci? [ Let- 
tera firmata) 

■ Tempo fa affermammo che abbiamo 
intenzione di aiutare, con consigli ed al- 
tre iniziative, i giovani intenzionati ad 
aprire seriamente un club. Purtroppo ci 
siamo accorti che dietro la richiesta di 


pubblicare nominativi (ed indirizzi) dei 
'‘fondatori"’ dei club, si nascondevano 
poco chiare volontà commerciali tese, 
più che altro, alla richiesta di denaro per 
l'iscrizione e per la vendita per corri- 
spondenza di programmi più o meno 
origi nali 

Se pertanto avete intenzione di aprire 
u n club senza alcuna finalità di lucro tele- 
fona teci il venerdì pomeriggio per esami- 
nare le vostre proposte. 



Programmi che non girano 

["Alcuni listati pubblicati sembrano non 
girare correttamente, in tutto o m parte. 
Cosa devo fare? (Aldo Cuerrini - Roma. 
Erio Zecchini - Milano) 
m I programmi che citate non contengo- 
no errori. L’unico modo per venire fuori 
è quello di telefonare il venerdì pomerig- 
gio avendo nelle vicinanze il computer su 
cui c caricato il programma che presenta 
inconvenienti. 



...EilC-ló? 

□ C.C.C. tratterà argomenti inerenti il 
nuovo computer Commodore C-16? (Do- 
ri o Riva - Milano) 

* Non appena il numero di richieste ana- 
logiche alla tua raggiungerà un numero 
sufficiente affronteremo anche il C-16. 
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GIOCHI 

VIC 20 INESPANSO 


Assedio 

su Marte 


CARATTERI 
E CODICI 
DEL C 64 



Attenzione ai missili. E' l'unica racco- 
mandazione che vi diamo per questo sem- vvk v 
plice gioco. Da digitare sul Vie 20 (anche 
inespanso) e provare subito. 


100 REM ASSEDIO SU MARTE 

110 REM GIOCO PER VIC £0 INESPANSO 

1£0 : 

130 : 

140 TI $=" 000000 “ :P 0 KE 36878, 15*P0KE 
38873,8 

150 DIM A <££ ) ■ GOSUB 710 
160 Z 1 =7680+ 18*22 
170 POKE 650,123 
180 PRINT* [OLEARI" i2=7B80 
185 PR I NT * [ HOME 1110 DOWN! IRVS irTTTT 
limili 11 1 I I I I I I IRVQFF I ■ 

1S0 FOR 1 = 1 TO 22 ! A ( I ) = 1 i POKE 7B80 + 
22*22+1-1 , 12 1 :NEXT 
200 PRINT" tHQMEHRVSItBIANCO] * ASS 
EDIO SU MARTE! ATTENDERE PREGO" 
£10 FOR Y =0 TO 505 s POKE 38400+Y,INT 
<RND( 1 ) *7 ) + 1 s NEXT 
220 POKE 36879,8 
225 PR 1 NT " I HOME 3 

" iREM 22 SPA2I 
230 PRINT" IHOPEJ 14 DONNI"! 

£35 PRINT” 

“SREM 26 SPAZI 


Importante 

1 listati che sono presenti da questo numero di t + C,C, riportano,, 
fra parentesi quadre, i nonsi dei tasti funzione e di controllo curso- 
re. Questo fatto è necessario per rendere più leggibili tutti i 
programmi. 

Ecco che se troviamo: [CLEAR] dovremo premere contempora- 
neamente: tasti SHIFT eCLR/HOMEed apparirà sul vostro scher- 
mo proprio il primo simbolo della tabeJlina proposta. 
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£40 G=PEEK< 197) :RT=0 

£50 IF RNDUX.3 THEN £90 
£60 0 = 1 NT (RFC C 1 ) *££) SRT =RT + 1 ! IF RT= 
4 THEN £90 « I F A(O>=0 THEN £60 
£70 A(O)=0:R=R+1: IF R=1S THEN 21=21 
-22iFQR 1=1 TO 12 SAC I > = 1 sNEXTsR 
=0 

£30 POKE 2 1 +D ,38 

£30 IF TI* >‘*000 130” THEN 520 

300 IF G=£9 THEN X=X-1 

310 PDKE 36377,0 

320 IF R/2 = INT < R/2 > THEN POKE 36377 

,220 

330 IF L >0 THEN 530 
340 IF RICCI >>-9 THEN 580 
350 IF G=37 THEN X=X+1 
360 IF X<0 THEN X=0 
370 IF X >2 1 THEN X=2i 
330 POKE Z +XI ,3£!X 1 =X 
390 POKE 2 +X ,S 1 
400 IF G=3£ THEN 440 
410 PR I NT ” t HOME 1121 0QWN3 

[UPI PUNTI"; 

420 PR INT SC "TEMPO “R IGHT*C TI *,3 > 

430 GOTO £40 

440 FOR 1=1 TO 19 



460 IF PEEKC2+X+I *28 ) =89 THEN SC=3C 
+£ 

470 IF PEEK 1 2 +X+ I *22 ) =65 THEN GOSUB 
930 

480 POKE 2 +X + 1 *22,93 
490 IF 1=01 THEN POKE 2 +X +1*22,32 
500 NEXT! POKE 36376,0 
510 POKE 2 + 19*2£+X ,32 ! GOTO 418 
520 POKE 36377, 0:FOR R=1 TO 10CPRIN 
T 11 1 CLEftR ] I V I OLA H 4 DONNI IL VS . P 
UNTEGGIO: “SC 
530 FOR U- 1 TO 130 t NEXT 
540 PRINT" tCLEARUGIALLOl [4 DONNI IL 
VS. PUNTEGGIO: "SO 
550 FOR U=1 TO 180SKEXT 
560 NEXT 

570 PRINTCHR*< 142 )! FOR U=I TO 100:N 
EXT! POKE 197,64! RUN 
530 IF L=0 THEN Q=X 
590 POKE 36375, 1£8+£*L 
600 IF PEEK (2 +£2*20-L*£2+Q> =3 1 THEN 
670 

610 IF L> 1 THEN POKE 2 +£2*£3-L*22+Q 
,32 

620 POKE 2 +22* I 9-L*££+Q ,65 
630 IF L > 1 3 THEN L=0iPOKE Z+Q,3£:P0 
KE 36875,0! GOTO 350 
640 POKE 36375,0 
650 L=L+4 . 

660 GOTO 350 

670 POKE Z +8 ,4£ ! POKE 36877 ,220 s POKE 
36379,0 

680 FOR T= 1 5 TO 1 STEP -1 
630 POKE 36873, Tì POKE 36873,8 
700 FOR M= 1 TO 30! NEXT! POKE 36873,1 
5 ! POKE 36377,0 ! SC =SC -20 s GOTO 61 
0 

710 PR INT" I CLEAR I £ 10 DOWN! I VERDE! 

IRVS IVOLETE ISTRIJ? IONI? [RVORF ] 
720 GET A* ! IF A* = " " THEN 720 
730 IF A*=”N“ THEN PR 1NTCHR*C 142) !G 
OTO 160 ‘ 

740 PR I NTCHR*( 142 ) 

750 IF A*<>"S’ THEN 7£0 
760 POKE 36379,3 


450 POKE 36876 ,£44-1*4 


CHARTBUSTERS! 


1 Ghostbusters (Activìsion) 

2 Daiey Thompson^ Decathlon (Ocean) 

3 Jet Set Willy (Software Prùpcts) 

4 Manìe Mifier (Software Projects) 

5 Hunchback (Ocean) 

6 Football Manager (Addiciive Games) 

7 Beach Head (US Gold) 

8 Fighter Pilot (Digita!) 

9 Match Point (Psion) 

10 Flight Path 737 (Anirog) 

Ghostbuslers ^acchiappafaniiLsini,, si trasforma nella 
classifica dei videogiochi In chartbusters: 
acc hi ap paci assi fica , 

Dietro al game dì David (rane, nella maggior parte 
troviamo vecchie conoscenze, almeno per i piu affezionati 
vìdeogiocatori. 

La classifica è tratta da Microscopi 


74 - Computer Cfub 


GIOCHI 


770 PRINT" ICLEAR] [DONNI [BIANC0IGL1 
ALIENI CHE HANNO [DOLIMI ATTACCA 
TO " J 

780 PRINT” LA TERRA [DONNI [ 12 R 
IGHTI SONO 

790 PRINT "BLOCCATI SU MARTE." 

S00 PRINT "[VERDE! [HOME! [10 DOLN3DOV 
ETE TENERLI A BADA [ DOWN ] ” J 

810 PRINT" FINCHE’ NON ARRIVANO I (DO 
LIN] RINFORZI,” 

880 PRINT" [£ DOWN] [BLEU 3ATTENZ IONE 
AI MISSILI ! “ 

830 PRINT” [£ DOWN] [RV3] PREMI UN 

TASTO [RVOFFI" 

840 GET Ai 

850 IF A$< > * “ THEN 390 

860 FD=FD+FT:iF FD>9 THEN FT=-1 

870 IF FD< 1 THEN FT=1 

380 POKE 7630 +5 *££+FO-F T,32 : POKE 7G 
S0+5*£2 +FD ,88 s GOTO 840 


890 PRINTCHRÌ< 142) 

900 PRINT” [CLEAR] [DOWN] [BIANCO K-MU 
OVE A SINISTRA [4 R IGHT] [DONNI > - 
MUOVE " } 

910 PRINT" A DESTRA [6 R IGHT ] IDOWNI ’ 
SPACE BAR 1 -FUOCO” 

9£0 PRINT" [HOME ] [8 DOLN3 1 • * -E ’ LA VS 
.ASTRONAVE [DOWN] 11 ; 

930 PRINT” I RINFORZI ARRIVANO IN 13 
0 SECONDI” 

9,40 PRINT" [2 DOWN! [5 RIQHTI4 2 PU 
NT I ” , ” £ 5 R1GHT3* 5 PUNTI”, 

350 PRINT" [5 R IGHTI* -20 PUNTI” 

960 PRINT” [4 DOWN] [RVSJ PREMI UN 
TASTOIRVOFF 3 " 

970 GET Ai: IF Ai=“" THEN 970 

930 POKE 36879, 8: GOTO 160 

330 3C=3C+5 : POKE 36879, 0:FOR P=1 TO 
80 

1000 NEXTJPQKE 3S373 >8: RETURN 



SPECTRUM 

CBM6J 


CBM64 


SPECTRUM 


ELETTRIZZANTI 

AVVINCENTI 


per vivere nuove emozionanti 
avventure piene di suspence e 
frenetiche animazioni. 


QUALITÀ- PREZZO solo £7.900 è la grande p 
MASTERTRONIC per conquistare tanti amici 


Mastertrorìic s.à T V !? Aguggiari, 62/ A -21100 Varo se - Q33Z238898 
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13 1985 è l'onno mondiale della musica 
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preparati con 7 note Bit , la nuova, fantastica opera 
che ìn soli 15 fascicoli quatlordìcinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica, 


"interattivo" della cassetta e della speciale tastiera 
musicale per il tuo 64. 

7 note Bit trasforma il Commodore Ó4 in uno 
strumento musicale sofisticato ed entusiasmante- 







Il video del computer tì presenta tutto dò che ti 
serve: un metronomo elettronico, il rigo musicale. 

Sa tastiera visualizzata con Se note corrispondenti ai tosti 
*,« e potrai partecipare "dal vìvo" alle session dei 
musicisti piu famosi, suonando insieme a loro. 

Prenota in edicola 7 note Bit : una prestigiosa iniziativa 
editoriale nata dall'unione della esperienza informatico- 
divulgativa del Gruppo Editoriale Jackson 
con la competenza tecnico-musicale SIEl: 


7 note Bit è il "programma musicale" 
più interessante che c'è: 
non perdere 
il primo numero. 

Pensa, compresa fm * m GRUPPO 
nel prezzo c'è anche 
la stupenda tastiera 
professionale per il 
tuo Commodore 64. 


EDITORIALE 

JACKSON 








Non tutti I leoni 
som veramente Leoni. 


Ecco come 
riconoscere un 
vero programma 
Leoni informatica 
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Quando per \\ tuo 
honne-computer il negoziante 
ti offre un programma a basso costo, dif- 
fidane. Nella quasi totalità dei casi sì tratta dì una 
copia duplicata, che per di più può non girare bene. Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili. Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità. Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si™ 
gillata. All'Interno, allegate al floppy disk, vi sono le istruzioni in italiano e, cosa 
importantissima, la cartolina di garanzia, Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita, ( assistenza ed lì continuo aggiorna- 
mento dei suoi programmi, Al tuo negoziante chiedi quindi la qualità, l'assisten- 
za e l'aggiornamento: chiedi i programmi Leoni Informatica. 

Richiedi a Leoni informatica l'elenco guida ai suoi programmi. 
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Leoni Informatica non ti abbandona mai 


Leoni 



iniórmarica 


Leoni informatica S.r.l - Sviluppo Software - Vendita Hardware 
Via Valsolda, 21 - 20143 Milano - Tel. 02-8467378-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Buffetti 
e dai rivenditori autorizzati che espongono il nostro marchio. 


BES Milano 


I GIOCHI PUBBLICATI SU COMMODORE COMPUTER CLUB 


I nuovi lettori come del resto quelli 
ulte/ tonati alla nostra mista da molto 
tempo, [reneranno di certo alile 1 elenco 
che segue. 

Rappresenta infatti un indice di rapida 
consultazione per rintracciare immedia- 
tamente il numero del fascicolo di 
CX'C. il titolo del gioco o ddl articolo 
che riguarda la programmazione det gio- 
chi. il computer su cui "gira" ed urta 
breve descrizione del contenuto 
dell'articolo 

Nel caso dei giochi per il Vìe 20* il termi- 
ne INES significa che non è richiesta 
espansione di memoria. Alcuni articoli, 
che a prima vista potrebbero esser se am- 
biali per articoli di didattica a tecnici. 
Terminano comunque con un gioco clic 
sicuramente sarà apprezzato soprai tu ito 
da coloro che intendono programmare 


giochi pei proprio conto. 

I lettori interessati all’acquisto per cor- 
rispondenza dei fascicoli arretrati senio 
pregati di tener conto di quanto segue: 

• Non si effettuano spedizioni in 

contrassegno, 

«• ■ 

• E indispensabile compilare la scheda 
riportata nell'ultima pagina di questo 
numero 

- I numeri 1. 2 c 7 sono esauriti ed è 
quindi inutile richiederli. 

• Ogni tre fascicoli arretrati richiesti si 
ha diritto a riceverne uno gratis, che è 
necessario indicare con chiarezza nel- 
l'apposito modulo. E‘ possibile indicare* 
quali omaggi desiderali, anche numeri 
arretrati della rivista Commodore 


1 

• Dadi - ViC 20 Ines 

Un semplice gioco che simula if lancio di 
dadi. 

0 Tiro al grygo - VIC 20 

Gioco di abilità. 

• ! ti visione s pazia I e - V ! C 2I> 

Divertente giochino dei tipo tiro ai 
bersaglio. 

• Caccia al rinoceronte - VIC 20 

Aitraversa hi foresta evitando i rinoceron- 
ti che fu abitano. 

2 

• Rio oceroi i te eoi io y stick - 1 7C 20 



E»# 


MONITORS 
MONOCROMATICI 
E A COLORI 


24047 TREVIGUO (Bg) ITALY 
viale Monte Grappa, 31 
Tei. (0363) 47222 RÌC. AUT. 

Telex: 3200 • 0 EXPRAN I 



1 GIOCHI PUBBLICATI SU COMMODORE COMPUTER CLUB 


Applicazione del joy al gioco pubblicato 
sul N. I dì CCC. 

• Hig-Iow - VIC 20 

Alternativamente il computer e il giocato- 
re devono indovinare un numero casuale, 

• Nim - VIC 20 

Noto gioco in citi occorre ragionare per 
battere il computer. 

3 

• Tot 9 -VIC 20 

Uno dei programmi elaborati dallo studio 
Carchidi di Roma. 

• Labirinto - VIC 20 

Semplice giochino di abilità. 


5 

• Il ferroviere - VIC 20 

Divertente giochino che consiste nel gui- 
dare con accortezza una serie di convogli 
ferroviari . 

6 

• Atterraggio - VIC 20 INES 

Gioco dì abilità consisterne nel guidare 
una piccola astronave attraverso uno 
schermo pieno di meteoriti. 

Roulette russa - VIC 20 INES 

in una pistola Uè un solo proiettile. A chi 
è destinato ? 

• Antiaerea * VIC 20 

Mini gioco per il popolare computer. 


• Forza 4 - SISTEMI & VIC 20 J\FS 

Simulazione coi computer de! notissimo 
iliaco 

7 

# Apprendimento automatico 

Interessante applicazione che illustra un 
metodo per risolvere un ni do vinello. 

♦ Controllo del cursore e videogiachi - 
VIC 20 

Come controllare lo spostamento del cur- 
sore sullo schermo mediante la pressione 
di alcuni tasti. 

Continua nel 
prossimo numero 
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MARCHE Di FABBRICA 




multif unzioni portatili 11 


MONI! Oli 


MONITOR IDEALE PER TUTTI I TIPI DI PERSONAL E HOME COMPUTER®. AMPIO RISPETTO DELL' 
Cinescopio 11” con tubo a 99° ■ 8990 punii 
INGRESSI RF: presa antenna 75 ohm e antenna stilo 
MONITOR:: presa tipo Scafi {vi dècxfim posile * audio 1 RGB) 

ALIMENTAZIONE: 220 V 50 Hi - 12 TTfe^DIMENSlONl: min. 270 x 200 * 340 
OPTIONAL: spina Scafi con cavo per tutti RStetffigdore 







Direzione commerciale 20123 Milano - Via G S Magagni 32 - tei. (02) 200,64172 ■ Telex: 323012 GAMMAX 1 
Stabuli mento 20033 Desio Milano] - Telex: 326685 ELMAM ! 


principali centri vìncita 

Ancona 

Somari ni - Te: 07* - 200631 

Rari 

Lì. CocpuiS!' § - • Te .CSC 224277 

Bq legna 

Cooperativa Dea - Te : OS-: 505 79D 

Catane 

f Coricare- spa Te. 095 ^ A4S 1 0 

Firenze 

Sumus s» r - T e 355 

Genova 

Badali Sevenne - "e 1 Qt: ^iTluS 

Livorno 

Piamo - Te .0555. 36559 

Messina 

Giannetto & Compagni - Td 090 7ì97E 

Milane 

Messaggerie Elettroniche ■ Tel. 32 50c- 
Fota Quelle srl - Te- 027 27340* -8 7501 E 

Padova 

SMC ai G. Caldi tori ■ Tel. 049 1 55754 i 

Palermo 

M M.p Bectrumcs - Te» 001/580983 

Peggio Calabria 

Campalo Giòcuzzola ■ Tei 0965 ■■ 332392 

Poma 

Messagg Mussiceli ■ Te DC 6793943 
ERI 80 srl Teb06/5 133739 

Sassari 

ALivon - Te- 975/216202 
Tonno - Negozi Expen 








INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 
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Registrate si mio abbonamento annuale a Commodore Computer Club. 

I Ho versato oggi stesso iJ canone di L 28.000 a mezzo c/c postale n°37952207 intestato 

a; 

Systems Editoriale - VJa Famagosta, 75 - 20142 Milano 

p''\ 

□ Ho inviato oggi stesso assegno bancario n 

per T importo di L. 28,000 intestato a Commodore Computer Club. 

Si prega di scrivere il proprio nomo e l'indirizzo completo in modo chiaro e leggibile Inviare 
la fotocopia del boi letti no di c/c postale. 


I. 
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Considerando che i numeri 1, 2 e 7 sono esauriti, vogliate inviarmi i numeri arretrati 
al prezzo di L, 5.000 cadauno per richieste fino a 4 numeri, o di L 4.000 cadauno per 

richieste oltre i 4 numeri arretrati, e perciò per un totale di L Sono a conoscenza che' 

i fase ioli suddetti non saranno inviati in contrassegno e, pertanto, ho provveduto oggi stesso 

a versare il canone di L a mezzo c/c postale n. 37952207 intestato a: 

Systems Editoriale - V. le Famagosìa, 75 - 20142 Milano 


STATISTICA 
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Non posseggo un computer 

Posseggo un C64 

Posseggo un VtC 20 

Posseggo un Commodoro Pius 14 .... 

Posseggo un Commodore Plus 16 

Posseggo un registratore dedicato 

Posseggo un drive 1541 
Posseggo una stampante ... 

Posseggo un monitor . 
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COLLABORAZIONE 


A titolo di prova vi invio un articolo e la cassetta ,♦ disco 

col programma che intendo proporre per la pubblicazione dì cui garantisco l'originalità. 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 




In edicola 
questo mese 



















MEE ■ Memorie per Elaboratori Elettronici S.p.A. 

Fornitura per Centri Elaborazione Dati 
Sede Amm.va; 20144 Milano • Via Boni 29 
Tel. 493B541 [4 linee r.a.) - Telex 324426 MEE-I 
Filiali e Agenzie: Milano - Bergamo - Torino 
Biella ■ Padova ■ Farm a - Bologna - Firenze * Ancona 
Roma - Napoli - Catania - Oristano - Bari - Genova 
Bolzano Mestre 


High precision Data Memories 

è tecnologia avanzata di costruzione. 

È il supporto magnetico testato ai limiti 
della resistenza con garanzia di assoluta 
affidabilità. 

È avanguardia tecnologica per assicurare 
la massima protezione dei dati, 
anche, nelle situazioni più critiche. 


HIGH PRECISION A COLPO SiCUROl 



